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Chapter  1 
Introduction 


1.1  JUNCTION  Code 

This  report  gives  a  brief  description  of  the  computer  program  JUNCTION  which  results  from  the 
application  of  numerical  procedures  desc-rcbcMi-jja-ff].  The  program  invokes  the  method  of  moments 
to  solve  a  coupled  electric  field  integral  equation  for  the  currents  induced  on  an  arbitrary  config¬ 
uration  of  perfectly  conducting  bodies  and  wires.  An  important  feature  of  the  code  is  its  ability 
to  treat  wire-to-wire.  surface-to-surface,  and  wire-to-surface  junctions.  Wires  may  be  connected  to 
surfaces  at  essentially  arbitrary  angles  and  inav  be  attached  to  surface  eug.es  or  vertices.  Results 
obtained  using  this  algorithm  are  in  the  form  of  electric  current  and  charge  densities  and  far  field 
patterns.  '  - 

I'ig.i.l  depicts  a  typical  conducting  wire  and  body  configuration  which  might  be  treated  by 
•JUNCTION.  The  theory  leading  to  a  numerical  algorithm  fi>r  '  rea  t  in<r  st;>-h  structures  is  described 
in  T'.  Here  we  are  mostly  concerned  with  describing  the  formal  of  the  input  data  for  specifying 
the  problem  geometry  and  excitation  to  JUNCTION.  This  data  may  be  generated  by  any  number 
of  means  by  using  an  outboard  program  specially  written  for  a  given  geometry,  by  running  an 
interactive  geometry  generation  program  such  as  IGUANA[2i,  or  by  entering  data  via  a  digitizing 
tablet.  JUNCTION  only  requires  that  two  input  files  exist  which  contain  the  following  problem 
specifications: 

1  Planar  triangular  patch  model  of  surfaces  .  -\  completely  specified  surface  model  merely 

consists  of  a  collection  of  numbered  tr r tiers  (corners  of  the  triangular  patches)  and  their 
coordinates,  and  an  edge,  connection  list  specifying  which  pair  of  vertices  each  numbered 
edge  connects. 

2.  Piecewise  linear  segment  model  of  wires.  A  completely  specified  ware  model  merely  consists  of 
a  collection  of  numbered  nodes  and  their  coordinates,  and  a  segment  connection  list  specifying 
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which  pair  of  nodes  each  numbered  segment  connects. 

3.  Excitation  information  such  as  frequency,  angle  of  arrival,  and  polarization  of  incident  plane 
waves,  and  location  and  magnitudes  of  voltage  sources. 

•I.  Ground  plane  and/or  symmetry  information  requiring  (lie  specification  locations  and  types 
of  image  planes. 

■5.  Output  control  parameters. 

A  detailed  description  of  the  format  of  the  input  data  may  be  found  in  Section  '2.3. 


1.2  Program  Structure 

Figs.  1.2- 1.5  illustrates  in  block  diagram  form  the  dependence  of  the  subroutines  on  their  calling 
routines  in  JUNCTION.  The  figures  group  the  subroutines  roughly  according  to  their  function.  For 
example.  Fig.  1.2  shows  the  subroutines  called  by  the  main  controller  program,  JUNCTION.  The 
subroutines  shown  in  Fig.  1.3  are  all  called  by  the  input  data  generation  subroutine,  DATGEN. 
Subroutines  shown  in  Fig.  l.-l  are  called  by  the  subroutine  SOLTN,  which  controls  the  matrix  ele¬ 
ment  computation  and  matrix  solving  processes.  The  main  task  in  the  matrix  element  computation 
step  is  the  computation  of  potential  integrals.  This  task  is  controlled  by  the  subroutines  POTBOD 
and  POTWIR  shown  in  Fig.  1.5.  Listings  for  all  subroutines  in  JUNCTION  except  CGESL  and 
CGEFA  ^called  by  SOLTN  1  may  be  found  in  Appendix  A.  These  latter  two  subroutines  are  con- 
•ained  in  the  LINPACK  library  [5]  and  may  be  replaced  by  any  linear  equation  solving  package  if 
desired. 

Fig.  1.6  shows  the  relationship  between  JUNCTION  and  the  software  package  NEEDS  (Nu¬ 
merical  Electromagnetics  Engineering  Design  System).  It  should  be  understood  that  JUNCTION 
is  a  stand  alone  program,  but  that  translators  have  been  added  to  it  to  allow  it  to  interface  with 
NEEDS.  Thus  JUNCTION  can  read  a  file  formatted  in  NEC  (Numerical  Electromagnetic  Code.' 
[3]  format  and  generated  by  NEEDS.  It  can  also  translate  JUNCTION  formatted  data  to  NEC  for¬ 
matted  data  for  convenient  display  using  the  IGUANA  (Interactive  Graphics  Utility  for  Automated 
NEC  Analysis)  software  contained  in  NEEDS. 
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Figure  1.2:  Structure  of  controlling  program  JUNCTION 
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Figure  1.4:  Subroutines  called  by  SOLTN". 


Figure  1.5:  Subroutines  called  by  POTBOD  and  POTW  IR. 
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Figure  1.6:  Block  diagram  depicting  relationships  between  JUNCTION  and  NEEDS. 
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Chapter  2 

Data  Generation 


In  the  following  sections  we  discuss  several  practical  aspects  related  to  modeling  a  structure  and 
to  using  the  JUNCTION  code.  User  aspects  include  generation  of  the  geometry,  and  specification 
of  input  parameters. 

2.1  Triangular  Patch  and  Wire  Modeling 

The  first  step  in  the  numerical  solution  of  any  practical  electromagnetics  problem  is  to  accurately 
model  the  geometry  and  to  represent  it  in  some  form  which  can  be  easily  handled  by  the  computer. 
In  JUNCTION,  we  wish  to  model  surfaces  and  wires  by  means  of  discrete  triangular  patches  and 
segments,  respectively.  Triangulation  and  segmentation  schemes  are  non-unique,  and  finding  a 
suitable  cne  may  at  first  appear  to  require  a  certain  amount  of  experience  or  intuition.  However, 
there  are  several  guidelines  which  can  be  followed  in  order  to  effectively  model  a  structure.  The 
cardinal  rule,  however,  is  simply  this — the  density  of  the  triangulation  or  segmentation  should  be 
sufficient  to  model  both  the  local  variations  in  the  surface  or  wire  geometry  and  in  the  surface 
current  density. 


2.2  Automatic  Triangulation  and  Segmentation  of  Mod¬ 
els 

The  generation  of  the  geometry  for  input  to  JUNCTION  is  often  greatly  simplified  by  using  a 
geometry  preprocessing  program  called  DATGEN.  This  program  is  an  extension  of  the  program 
BUILD  developed  at  Sandia  laboratories  [4]  and  has  been  incorporated  into  JUNCTION.  This 
menu-driven  subprogram  allows  the  user  to  build  up  a  collection  of  arbitrary  bodies  by  joining 
together  certain  canonical  three-dimensional  triangulated  shapes  (primitives)  to  form  objects.  The 
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extension  contained  in  JUNCTION  also  allows  the  user  to  add  segmented  Linear  wires  to  form 
composite  wire-and-conducting-body  problem  geometries.  All  surface  and  wire  intersections  which 
form  junctions  are  automatically  found  by  JUNCTION  by  comparing  vertex  and  node  coordinates. 

DATGEN  is  an  interactive  program  which  is  called  by  JUNCTION  and  which  prompts  the  user 
to  choose  from  its  catalog  of  canonical  surface  shapes  or  to  edit  existing  geometry  files.  In  creating 
bodies  or  wires,  the  user  also  provides  information  to  allow  DATGEN  to  automatically  subdivide 
these  geometrical  elements  into  triangular  patches  or  segments  as  required  by  JUNCTION’S  input 
data  file.  The  options  available  in  DATGEN’s  geometry  menu  and  the  required  input  necessary  to 
define  each  shape  is  listed  below: 

1.  NEC  Data — Input  data  files  are  formed  by  translating  a  NEC  formatted  data  file  which 
includes  GW,  SP  and  SC  geometry  cards. 

2.  Quadrilateral — A  quadrilateral  is  formed  by  specifying  the  coordinates  for  the  four  corners 
in  order  of  progression  around  the  boundary,  then  specifying  the  number  of  edges  desired 
along  the_side  formed  by  the  first  two  corners,  and  the  number  of  edges  desired  along  an 
adjacent  side. 

3.  Cylinder — A  cylinder  is  formed  by  first  specifying  the  center  points  of  the  two  end  plates 
of  the  cylinder.  Next  a  point  on  the  circumference  of  each  end  plate  is  defined.  These  points 
need  not  be  equidistant  from  the  center  points;  if  they  are  not,  a  section  of  a  conical  surface 
is  formed.  Either  end  of  the  cylinder  may  be  open  or  closed.  The  number  of  edges  around 
the  circumference  of  the  cylinder,  along  its  axis,  and  radially  along  the  endcaps  (if  present) 
are  also  specified.  A  slotted  cylinder  may  aiso  be  generated  by  specifying  a  beginning  and 
ending  angle  at  each  end  plate.  If  the  points  specified  on  the  end  plates  are  rotated  about 
the  axis  with  respect  to  one  another,  then  the  triangulation  scheme  and  the  slot,  if  present, 
is  similarly  twisted  about  the  cylindrical  surface. 

4.  Cone — An  open-ended,  finite-length  cone  is  defined  by  first  specifying  the  coordinates  of  the 
apex.  Next,  the  coordinates  of  points  at  the  center  and  on  the  circumference  of  the  base  are 
given.  Finally,  the  number  of  edges  around  the  circumference  and  the  number  of  edges  from 
the  apex  to  the  base  are  specified. 

5.  Disk — A  disk  is  generated  by  specifying  the  coordinates  of  a  point  at  the  center,  a  point 
on  the  circumference,  and  a  point  on  a  line  perpendicular  to  and  passing  through  the  center 
of  the  disk.  The  triangulation  scheme  is  specified  by  entering  the  number  of  circumferential 
and  radial  edges. 

6.  Sphere — The  sphere  is  specified  by  entering  three  points:  a  point  at  the  center,  a  point  at 
the  north  pole,  and  a  point  on  the  equator  corresponding  to  zero  degrees  longitude.  It  is 
possible  to  specify  only  a  sector  of  a  spherical  surface.  The  beginning  and  ending  angles  of 
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the  longitudes  and  latitudes  of  the  sector  boundaries  are  specified,  followed  by  the  number 
of  edges  along  the  corresponding  directions. 

7.  Wire — A  straight  wire  is  formed  by  specifying  the  coordinates  of  the  two  ends,  then  speci¬ 
fying  the  number  of  subsegments  desired  and  the  radius  of  the  wire. 

The  above  geometries  are  automatically  joined  by  DATGEN  along  any  completely  coincident 
edges  by  eliminating  redundant  edges  and  vertices  from  the  model.  The  output  of  DATGEN 
consists  of  matrices  characterizing  the  model  wire  and  surface  geometries  plus  a  list  of  so-called 
“test  parameters”  which  specify  the  excitation,  symmetries  present,  and  quantities  to  be  computed 
by  JUNCTION.  The  test  data  are  generated  from  interactive  input  and  are  required  input  for 
JUNCTION.  The  geometry  data  for  bodies  (wires)  consists  of  two  set  of  matrices.  The  first  matrix 
is  a  vertex  (node)  list  matrix  in  which  the  row  index  corresponds  to  a  vertex  (node)  number  and 
the  associated  elements  are  its  three-dimensional  coordinates  with  respect  to  a  global  origin.  The 
second  matrix  is  an  edge  (segment)  matrix  in  which  the  row  index  corresponds  to  an  edge  (a 
segment)  number  and  the  associated  elements  are  the  numbers  of  the  two  vertices  (nodes)  to  which 
it  is  connected.  - 

2.3  Specification  of  Input  Data 

Table  2.1  and  2.2  provide  the  format  of  and  a  brief  description  of  the  input  data  files  required  by 
JUNCTION.  These  files  can  either  be  generated  by  the  user,  or  generated  interactively  through 
DATGEN.  The  following  notes  apply  to  Tables  2.1  and  2.2  and  mere  fully  explain  the  function  of 
each  parameter  in  the  two  input  data  files. 

Notes  on  Tables  2.1  and  2.2: 

1.  NJCT  specifies  the  type  of  wirc/body  configuration.  A  value  of  -1  indicates  that  a  conduct¬ 
ing  body  is  present,  but  no  wires;  1  indicates  there  are  bodies,  wires  and  wire-to-surface 
junctions;  0  indicates  there  are  bodies  and  wires  but  no  wire-to-surface  junctions  present  in 
this  geometry  configuration. 

2.  The  number  of  ground  planes,  NGNDP,  specifies  the  number  of  image  planes  (electric  or 
magnetic)  to  be  used  on  symmetrical  structures.  If  this  parameter  is  non-zero,  a  value  must 
be  given  for  the  type  of  image  plane  at  x  =  0,  y  =  0,  2  =  0  in  the  IGNDP  parameter  line.  If 
NGNDP  is  zero,  then  zero  can  be  specified  for  each  of  the  image  planes. 

3.  IGNDP  specifies  the  type  of  image  plane  to  be  placed  in  the  x  —  0,  y  =  0,  and  z  —  0  planes, 
respectively.  A  value  of  -1  indicates  a  perfect  magnetic  conductor  ,  a  +1  indicates  a  perfect 
electric  conductor,  and  a  0  indicates  no  image  plane  present. 
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Table  2.1:  DESCRIPTION  OF  INPUT  DATA  IN  FOR002.DAT 


NJCT  MNJUN 
NNODES  NEDGES 
NODE  X  Y  Z 


NE  NF  NT 


NGNDP 

IGNDP(l)  IGNDP(2)  IGNDP(3) 

IPAT 

THETA1  THETA2  NTHETA  PHIl 

PHI2  NPHI 

ICHRGE 

ITYPE 

THETA  PHI  RTH  AITH  RPH  AIPH 

NWVL'T 
NODE  RV  XV 

FREQ 

-1 


Junction  flag,  number  of  junctions. 

Number  of  nodes,  edges. 

Vertex  number  and  rectangular  coordinates. 

Edge  number,  “from”  node  and  “to”  node. 

Number  of  ground  planes. 

Ground  plane  type  for  z  =  0, y  =  0, z  =  0. 
Pattern  flag. 

Start  and  end  angles  for  pattern. 

Charge  density  flag. 

Type  of  excitation — plane  wave  and/or  volt¬ 
age  sources. 

Incident  plane  wave  and  polarization  informa¬ 
tion. 

Number  of  voltage  oources. 

Wire  node  number,  voltage  (Re,  Im) 

Frequency  of  operation. 

End  of  the  input. 
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Table  2.2:  DESCRIPTION  OP  INPUT  DATA  IN  FOROOS.DAT 


NWNOD  NWSEG 
NODE  X  Y  Z 


Number  of  nodes  and  wire  segments. 

Node  number  and  rectangular  coordinaies. 


NSEG  NF  NT  RAD 


Segment  number,  “from”  node,  “to”  node,  ra¬ 
dius  of  wire  segment. 


4.  IPAT  is  a  flag  which  should  be  set  to  I  or  2  if  a  pattern  computation  is  desired  or  to  0  if  it 
is  not.  If  IPAT  is  0  then  the  data  line  following  it  sho"!d  be  omitted.  A  value  of  1  indicates 
a  3  point  quadrature  is  used;  a  2  indicates  a  1  point  quadrature  is  used. 

5.  The  line  that  begins  with  T1IETA1  defines  the  pattern  cuts  desired.  TIIETA1  and  TIIETA2 
specify  the  starting  and  ending  angiec  for  the  pattern  computation,  and  NTHETA  speci¬ 
fies  the  number  of  evenly  spaced  angles  between  THETA1  and  THETA2  for  the  pattern 
calculation. 

6.  ICHRGE  is  a  flag  which  should  be  set  to  1  if  charge  density  output  is  desired  or  to  0  if  it  is 
not. 

7.  ITYPE  specifies  the  type  of  excitation.  P  indicates  a  plane  wave  excitation,  V  indicates  a 
voltage  source  excitation. 

8.  The  line  beginning  with  THETA  specifies  the  incident  angle  and  polarization  for  plane  wave 
scattering.  Refer  to  Fig.  8.  This  line  should  always  be  present.  If  a  scattering  problem  is 
not  desired,  then  these  parameters  may  be  set  to  zero. 

9.  The  line  beginning  with  NODE  contains  information  about  the  location  of  voltage  sources 
impressed  at  wire  nodes.  NODE  denotes  the  wire  node  (may  be  a  wire-to-surface  junction 
node)  number  to  -vhich  a  source  is  to  be  added.  RV  and  XV  specify  the  values  of  real  and 
imaginary  parts  of  the  voltage  source.  This  line  is  repeated  for  each  voltage  source.  The 
reference  direction  for  voltage  sources  is  the  same  as  the  current  reference  direction  (c.f. 
Section  2.5). 
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2.4  Modeling  Guidelines 

1.  Triangles  may  not  be  imbedded  within  triangles.  Fig.  2.1  shows  examples  of  violations  of 
this  rule. 

2.  For  convex  bodies,  specifying  vertices  to  be  on  the  surface  of  the  original  body  always  results 
in  a  triangulated  model  with  reduced  surface  area  and  volume  as  compared  to  the  object 
being  modeled.  Thus  the  solution  may  appear  to  correspond  to  that  of  an  electrically  smaller 
object.  This  difficulty  usually  can  be  substantially  corrected  by  scaling  up  the  object  so  as  to 
maintain  the  correct  volume  or  surface  area.  For  this  purpose,  the  surface  area  and  volume 
of  the  model  are  available  as  output  of  JUNCTION. 

3.  At  geometrical  discontinuities  such  as  edges,  corners,  wire  attachment  points,  etc.,  the  surface 
current  density  usually  varies  quite  rapidly.  In  such  regions,  wavelength  may  have  little 
bearing  on  the  maximum  edge  length  that  will  yield  an  accurate  solution.  Convergence  can 
often  be  greatly  accelerated  for  such  problems  by  using  concentrated  mesh  schemes  in  regions 
where  the  current  varies  most  rapidly. 

•1.  When  modeling  closely  spaced,  almost  parallel  bodies  or  wires,  the  triangulation  and  segmen¬ 
tation  schemes  for  the  parallel  surfaces  should  be  made  commensurate.  Otherwise,  modeling- 
induced  discretization  of  the  near  field  of  one  surface  coupling  to  the  other  can  produce  severe 
errors  in  the  solution.  This  problem  can  also  be  relieved  by  choosing  edge  and  segment  lengths 
that  are  much  smaller  than  the  separation  distances  of  the  surfaces  involved. 

5.  Segment  and  triangle  edge  lengths  on  wires  or  in  regions  on  smooth  surfaces  that  are  not 
near  surface  edges  or  other  geometrical  discontinuities,  should  typically  be  no  longer  than 
1/5  to  1/10  of  a  wavelength.  This  guideline  should  not.  however,  be  followed  blindly.  For 
high-Q  resonant  structures,  such  as  a  resonant  length  of  wire  or  a  narrow  tape,  for  example, 
it  is  often  found  that  convergence  of  the  solution  as  the  number  of  unknowns  is  increased 
is  very  slow  and  more  segments  or  edges  must  be  used  to  obtain  a  solution.  Also,  very 
accurate  solutions  for  currents  are  often  required  to  accurately  compute  patterns  in  regions 
where  sidelobe  levels  are  low  because  the  cancellation  of  the  fields  in  such  regions  reduces  the 
number  of  significant  figures  available.  In  many  practical  problems,  it  is  necessary  to  repeat 
calculations  for  several  maximum  edge  or  segment  lengths  in  order  to  check  the  convergence 
of  the  solution. 

6.  The  wire  model  neglects  circumferentially  directed  currents  and  any  circumferential  variation 
of  the  axial  current;  all  wire  radii  must  be  much  smaller  than  a  wavelength  at  the  frequency 
of  excitation  for  this  assumption  to  remain  justified. 

7.  For  wire-to-surface  junctions,  the  wire  radii  are  assumed  small  compared  to  the  edge  lengths 
of  triangles  to  which  they  are  attached. 
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(a) 


Figure  2.2:  Examples  of  triangles  embedded  within  triangles. 
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8.  If  a  wire  is  nearly  parallel  to  a  surface  at  the  attachment  point,  it  is  assumed  that  the  angle 
is  sufficiently  large  that  the  wire-to-surface  junction  region  remains  small  compared  to  edge 
lengths  of  the  attached  triangle. 

9.  For  a  wire  nearly  parallel  to  a  surface,  the  triangular  patch  density  may  need  to  be  increased 
on  the  surface  in  the  neighborhood  of  the  wire.  At  wire-to-surface  junctions,  the  junction 
vertex  angles  of  the  junction  triangles  should  be  kept  small. 

2.5  Current  Reference  Directions 

1.  The  reference  current  direction  on  a  wire  segment  is  assumed  to  be  from  lower  numbered  to 
higher  numbered  segments. 

2.  The  assumed  reference  direction  for  the  currents  across  a  given  edge  is  determined  by  the  cross 
product  of  l)  the  edge  orientation  vector  {determined  by  the  “from"  and  “to’’  designation 
in  the  input  data)  with  2)  the  surface  normal,  taken  in  that  order.  The  surface  normal  for  a 
given  face  is  determined  from  the  orientation  of  the  triangle's  boundary,  as  specified  by  the 
order  in  which  its  edges  and/or  vertices  appear  in  the  output  face  list.  The  triangle’s  normal 
is  merely  related  to  this  orientation  In  the  right  hand  rule.  The  relationship  between  face 
and  edge  orientations  and  current  reference  direction  is  illustrated  in  Fig.  2 

•')  The  current  reference  direction  at  wire-to-surface  junction  is  into  the  wire  from  the  surface. 

4.  For  a  closed  surface,  the  outward  normal  is  automatically  chosen  by  the  program.  For  an  open 
surface  the  following  procedure  is  used  to  define  the  normal  for  one  triangular  face.  Once 
the  normal  has  been  chosen  for  this  face,  the  program  automatically  orients  the  normals  for 
the  remaining  faces. 

(a)  The  lowest  numbered  edge  which  is  connected  to  edge  number  1  and  which  also  forms 
a  triangular  face  with  edge  number  1  is  found. 

(b)  The  two  edges  of  the  previous  step  are  temporarily  treated  as  vectors  directed  away 
from  their  common  vertex.  Note  that  for  this  purpose,  the  “from”  and  “to"  vertex 
designations  of  the  edges  are  ignored. 

(c)  The  surface  normal  is  taken  to  be  in  the  direction  of  the  cross  product  of  these  two 
temporary  vectors  with  edge  1  is  the  second  argument  of  the  cross  product.  The 
direction  of  this  normal  is  then  propagated  to  liu-  adjacent  fa'os  and  hence  over  t ho 
entire  structure. 

5.  In  order  to  prevent  patches  from  becoming  incoherently  oriented  on  intersecting  surfaces,  it 
may  be  necessary  to  reorient  the  normals  of  the  intersecting  patches  manually. 
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Chapter  3 

Example  Problem 


The  following  files  were  generated  by  JUNCTION'  for  the  simple  example  problem  shown  in  Fig. 
3.1. 

1.  FOR002.DAT  is  an  input  data  file  associated  with  the  plate. 

2.  FOR008.DAT  is  an  input  data  file  associated  with  the  wire. 

3.  NFC. DAT  is  a  NFC  formatted  geometry  data  file. 

■1.  IGUANA. NEC  is  an  IGUANA  formatted  geometry  data  file, 
a.  Ft)  11.003. DAT  is  an  output  data  file  associated  with  the  plate. 
i\.  FOI1009.DAT  is  an  output  data  file  associated  with  the  wire. 

7.  FOROOI.DAT  is  an  output  data  file  for  (lie  surface'  current 
S.  FOR010.DAT  is  an  output  data  file  for  a  lar  field  pattern. 

9.  FOR011.DAT  is  an  output  data  file  for  the  charge  density. 

3.1  Geometry 

Fig.  3.1  shows  the  geometry  of  the  example  problem.  1  he  geometry  consists  erf  a  0.1  >A  length 
monopoly  with  0.001A  radius  mounted  on  the  center  of  a  0.2A  x  0.2A  square  plate.  1  he  wire 
was  divided  into  3  segments  and  the  plate  was  divided  into  8  triangular  patches.  This  is  not  a 
sufficient  number  of  wire  segments  or  triangles  to  accurately  model  the  geometry,  but  it  is  sufficient 
to  illustrate  the  formal  of  the  input  and  output  of  the  program. 
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Wire  Radius:  a  =  0.001A 
Wire  Length:  0.15A 


3.2  Input  Data 

3.2.1  FOR002.DAT 

c 

C  FOR002.DAT: INPUT  DATA  ASSOCIATED  WITH  BODIES 
C 

1  1 
9  16 

1  1 .00000001490E-01  1 .00000001490E-01  0 . OOOOOOOOOOOE+OO 

2  1 .00000001490E-01  0 . OOOOOOOOOOOE+OO  0 . OOOOOOOOOOOE+OO 

3  1 .00000001490E-01  -1 .00000001490E-01  0 . OOOOOOOOOOOE+OO 

4  0. OOOOOOOOOOOE+OO  1 . 0000000149CE-01  0 . OOOOOOOOOOOE+OO 

5  0. OOOOOOOOOOOE+OO  0 . OOOOOOOOOOOE+OO  0 . OOOOOOOOOOOE+OO 

6  0. OOOOOOOOOOOE+OO  - 1 . 00000001490E-01  0 . OOOOOOOOOOOE+OO 

7  -1 .00000001490E-01  1 . 0000000 1490E-01  0 . OOOOOOOOOOOE+OO 

8  -1 .0000000 1490E-01  0 . OOOOOOOOOOOE+OO  0 . OOOOOOOOOOOE+OO 

9  -1 .00000001490E-01  - 1 . 00000001490E-01  0 . OOOOOOOOOOOE+OO 

1  1  2 

2  2  3 

3  1  4 

4  1  5 

5  2  5 

6  2  6 

7  3  6 

8  4  5 

9  5  6 

10  4  7 

11  4  8 

5  8 

13  5  9 

1 '  6  9 

lc  7  8 

16  8  9 

0 

0  0  0 
2 

O.OOOOOOOE+OO  O.OOOOOOOE+OO  1  O.OOOOOOOE+OO  180.0000 
19 
1 
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V 


1 

1  1.000000  O.OOOOOOOE+OO 

3.0000000E+08 
-1.000000 


3.2.2  FOR008.DAT 

c 

C  F0EOO8.DAT  :  INPUT  DATA  ASSOCIATED  WITH  WIRE 
C 

4  3 

1  0 . OOOOOOOE+OO 

2  O.OOOOOOOE+OO 

3  O.OOOOOOOE+OO 

4  -O.OOOOOOOE+OO 

1  1 

2  2 

3  3 

V 

1 

1  1 . 000000  0 . OOOOOOOE+OO 


O.OOOOOOOE+OO 
O.OOOOOOOE+OO 
0 . OOOOOOOE+OO 
0 . OOuOOOOE+OO 


O.OOOOOOOE+OO 

S.0000001E-02 

0.1000000 

0.1500000 


2  1 .0000000E-03 

3  1.0000000E-03 

4  1 .0000000E-03 
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3.3  Output  Data 

3.3.1  NEC. DAT 

c 


C  NEC. DAT  : 

n 

GEOMETRY 

DATA  IN  NEC 

FORMAT 

u 

CM  INPUT 

DATA  IN  NEC 

FORMAT 

CE 

GW  0 

3 

0 . OOOO 

0.0000 

0.0000 

0 . 0000 

0 . 0000 

0. 1500 

0.0010 

SP 

2 

0.0000 

0.0000 

0.0000 

0.1000 

0.0000 

0.0000 

SC 

2 

0.1000 

0 . 1000 

0 . 0000 

SP 

2 

0 . 0000 

-0.1000 

0.0000 

0.1000 

-0.1000 

0.0000 

SC 

2 

0 . 1000 

0.0000 

0.0000 

SP 

2 

0.0000 

0.1000 

0.0000 

0.0000 

0 . 0000 

0.0000 

SC 

2 

0.1000 

0.1000 

0.0000 

SP 

2 

0 . 0000 

0 . 0000 

0.0000 

0.0000 

'0. 1000 

0 . 0000 

SC 

2 

0.1000 

0.0000 

0 . 0000 

SP 

2 

-0.1000 

0.0000 

0 . 0000 

0.0000 

0.0000 

0.0000 

SC 

2 

0 . 0000 

0.1000 

0.0000 

SP 

2 

-0.1000 

-0.1000 

0.0000 

0.0000 

-0.1000 

0.0000 

SC 

2 

0.0000 

0.0000 

0 . 0000 

SP 

2 

-0.1000 

0.1000 

0.0000 

-0 . 1000 

0.0000 

0.0000 

sc 

2 

0.0000 

0.1000 

0.0000 

SP 

2 

-0.1000 

0.0000 

0.0000 

-0.1000 

'0.1000 

0.0000 

sc 

2 

0.0000 

0.0000 

0.0000 

GE 

EN 

2S 


3.3.2 


IGU.NEC 


c 

C  IGU.NEC  :  GEOMETRY  DATA  IN  IGUANA  FORMAT 
C 

CM,  INPUT  DATA  IN  IGUANA  FORMAT 
CE. 


GW, 

1,1, 

0.100, 

0.100, 

0.000, 

0.100, 

0.000, 

0 . 000 ,0.1 

GW, 

2,1, 

0.100, 

0.000, 

0.000, 

0.100, 

-0.100, 

0.000,0.1 

GW, 

3,1, 

0.100, 

0.100, 

0.000, 

0.000, 

0.100, 

0.000,0.1 

GW, 

4,1, 

0.100, 

0.100, 

0.000, 

0.000, 

0.000, 

0.000,0.1 

GW, 

5,1, 

0.100, 

0.000, 

0.000, 

0.000, 

0.000, 

0.000,0.1 

GW. 

6,1, 

0.100, 

0.000, 

0.000, 

0.000, 

-0.100, 

0.000,0.1 

GW, 

7,1, 

0.100, 

-0.100, 

0.000, 

0.000, 

-0.100, 

0.000,0.1 

GW, 

8,1, 

0.000, 

0.100, 

0 . 000 , 

0.000, 

0.000, 

0.000,0.1 

GW, 

9,1, 

0.000, 

0.000, 

0.000, 

0.000, 

-0.100, 

0.000,0.1 

GW, 

10,1, 

-0.000, 

0.100, 

0 . 000 , 

-0.100, 

0.100, 

0.000,0.1 

GW. 

11,1. 

0.000, 

0.100, 

0.000, 

1 

o 

o 

o 

0.000, 

0.000,0.1 

GW, 

12,1, 

0.000, 

0.000, 

0.000, 

o 

o 

rH 

o 

1 

0.000, 

0.000,0.1 

GW, 

13,1, 

0.000, 

0.000, 

0.000, 

-0.100, 

o 

o 

rH 

o 

0.000,0.1 

GW, 

14,1, 

0.000, 

o 

o 

H 

o 

1 

0.000, 

-0.100, 

-0.100, 

0.000,0.1 

GW, 

15,1, 

-0.100, 

0.100, 

0.000, 

-0.100, 

0.000, 

0.000,0.1 

GW, 

16,1, 

o 

o 

T  4 

o 

1 

0.000, 

0.000, 

1 

o 

o 

o 

o 

o 

o 

1 

0.000,0. 1 

GW, 

999,  3, 

0.00, 

0.00, 

0.00, 

0.00, 

0.00,  0. 

.15,  0.0010 

GE, 

EN, 
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'  *■•*£,  *  ‘Wfcvt.  i*cs*; 


3.3.3  FOR003.DAT 

c 

C  FOR003.DAT:  OUTPUT  DATA  ASSOCIATED  WITH  BODIES 
C 

NUMBER  OF  JUNCTION=  1 
ON  WIRE  NODE  1 

NUMBER  OF  IMAGE  PLANES=  0 
IMAGE  PLANE  NOTATION: 

0=NO  GROUND  PLANE 
1=A  P.M.C.  GROUND  PLANE 
“ 1-A  P.E.C.  GROUND  PLANE 
0  IN  THE  X=0  PLANE 
0  IN  THE  Y=0  PLANE 
0  IN  THE  Z=0  PLANE 

NUMBER  OF  VOLTAGE  SOURCE  =  1 

V*(l. 0,0.0)  VOLTS  ON  WIRE  NODE  1 

VERTEX  COORDINATE  LIST 
ALL  DIMENSIONS  ARE  IN  METERS 


VERTEX  NUMBER 
1 
2 

3 

4 

5 

6 

7 

8 
9 


X-COORDINATE 
0. 10000E+00 
0. 10000E+00 
0. 10000E+00 
O.OOOOOE+OO 
O.OOOOOE+OO 
O.OOOOOE+OO 
-0. 10000E+00 
-0 . 10000E+00 
-0 . 10000E+00 


Y-COORDINATE 
0. 10000E+00 
O.OOOOOE+OO 
-0. 10000E+00 
0. 10000E+00 
O.OOOOOE+OO 
-0. 10000E+00 
0. 10000E+00 
O.OOOOOE+OO 
-0 . 10000E+00 


Z-COORDINATE 
O.OOOOOE+OO 
O.OOOOOE+OO 
O.OOOOOE+OO 
O.OOOOOE+OO 
O.OOOOOE+OO 
O.OOOOOE+OO 
O.OOOOOE+OO 
O.OOOOOE+OO 
0 . OOOOOE+OO 


IPAT=  2 

IF  IPAT.GT.O  FAR  FIELD  PATTERNS  ARE  COMPUTED 
PATTERN  PARAMETERS: 

PHI 1 >  PHI2,  NPHI ,  THETA 1 ,  THETA2.  NTHETA 
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0.0000 


0.0000 


1 


0.0000  180.0000  19 


FOR  BODY  NUMBER:  1 


FACE 

1 

HAS 

EDGES 

1 

4 

5 

WITH 

VERTICES 

5 

FACE 

2 

HAS 

EDGES 

2 

6 

7 

WITH 

VERTICES 

6 

FACE 

3 

HAS 

EDGES 

4 

3 

8 

WITH 

VERTICES 

4 

FACE 

4 

HAS 

EDGES 

6 

5 

9 

WITH 

VERTICES 

5 

FACE 

S 

HAS 

EDGES 

8 

11 

12 

WITH 

VERTICES 

8 

FACE 

6 

HAS 

EDGES 

9 

13 

14 

WITH 

VERTICES 

9 

FACE 

7 

HAS 

EDGES 

11 

10 

15 

WITH 

VERTICES 

7 

FACE 

8 

HAS 

EDGES 

13 

12 

16 

WITH 

VERTICES 

8 

2  1 
3  2 

5  1 

6  2 

5  4 

6  5 

8  4 

9  5 


EDGE-VERTEX  CONNECTION  LIST 


EDGE 

1 

GOES 

FROM 

VERTEX 

EDGE 

2 

GOES 

FROM 

VERTEX 

EDGE 

3 

GOES 

FROM 

VERTEX 

EDGE 

4 

GOES 

FROM 

VERTEX 

EDGE 

5 

GOES 

FROM 

VERTEX 

EDGE 

6 

GOES 

FROM 

VERTEX 

EDGE 

7 

GOES 

FROM 

VERTEX 

EDGE 

8 

GOES 

FROM 

VERTEX 

EDGE 

9 

GOES 

FROM 

VERTEX 

EDGE 

10 

GOES 

FROM 

VERTEX 

EDGE 

11 

GOES 

FROM 

VERTEX 

EDGE 

12 

GOES 

FROM 

VERTEX 

EDGE 

13 

GOES 

FROM 

VERTEX 

EDGE 

14 

GOES 

FROM 

VERTEX 

EDGE 

15 

GOES 

FROM 

VERTEX 

EDGE 

16 

GOES 

FROM 

VERTEX 

1 

TO 

VERTEX 

2 

MULT= 

0 

2 

TO 

VERTEX 

3 

MULT= 

0 

1 

TO 

VERTEX 

4 

MULT= 

0 

1 

TO 

VERTEX 

5 

MULT= 

1 

2 

TO 

VERTEX 

5 

MULT= 

1 

2 

TO 

VERTEX 

6 

MULT= 

1 

3 

TO 

VERTEX 

6 

MULT= 

0 

4 

TO 

VERTEX 

5 

MULT= 

1 

5 

TO 

VERTEX 

6 

MULT= 

1 

4 

TO 

VERTEX 

7 

MULT= 

0 

4 

TO 

VERTEX 

8 

MULT= 

1 

5 

TO 

VERTEX 

8 

MULT= 

1 

5 

TO 

VERTEX 

9 

MULT= 

1 

6 

TO 

VERTEX 

9 

MULT= 

0 

7 

TO 

VERTEX 

8 

MULT= 

0 

8 

TO 

VERTEX 

9 

MULT= 

0 

BODY  PARAMETER  LIST 

NUMBER  OF  VERTICES=  9 
NUMBER  OF  EDGES =  16 

NUMBER  OF  FACES=  8 


31 


F  * . 


NUMBER  OF  EDGES  INCLUDING  MULTIPLICITY=  8 


MODELING  PARAMETER  LIST  (METERS) 


SURFACE  AREA  OF  THE  SCATTERER=  0.40000E-01  SQ. METERS 

AVERAGE  EDGE  LENGTH3  0.12Q71E+00  METERS 

MAXIMUM  EDGE  LENGTH(EDGE  NO.  4  )=  0.14142E+00  METERS 

MINIMUM  EDGE  LENGTH(EDGE  NO.  1  )=  O.IOOOOE+OO  METERS 

AVERAGE  FACE  AREA  3  0.50000E-02  SQ. METERS 

MAXIMUM  FACE  AREA  (FACE  NO.  1  )=  0.50000E-02  SQ. METERS 

MINIMUM  FACE  AREA  (FACE  NO.  1  )=  O.SOOOOE-02  SQ. METERS 

MINIMUM  FACE  HEIGHT  TO  BASE  RATIO  (FACE  NO.  1  )=0 .50000E+00 


EDGE 

1 

IS 

ATTACHED 

TO 

FACES 

1 

EDGE 

2 

IS 

ATTACHED 

TO 

FACES 

2 

EDGE 

3 

IS 

ATTACHED 

TO 

FACES 

3 

EDGE 

4 

IS 

ATTACHED 

TO 

FACES 

1 

3 

EDGE 

5 

IS 

ATTACHED 

TO 

FACES 

1 

4 

EDGE 

6 

IS 

ATTACHED 

TO 

FACES 

2 

4 

EDGE 

7 

IS 

ATTACHED 

TO 

FACES 

2 

EDGE 

8 

IS 

ATTACHED 

TO 

FACES 

3 

5 

EDGE 

9 

IS 

ATTACHED 

TO 

FACES 

4 

6 

EDGE 

10 

IS 

ATTACHED 

TO 

FACES 

7 

EDGE 

11 

IS 

ATTACHED 

TO 

FACES 

5 

7 

EDGE 

12 

IS 

ATTACHED 

TO 

FACES 

S 

8 

EDGE 

13 

IS 

ATTACHED 

TO 

FACES 

6 

8 
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EDGE  14  IS  ATTACHED  TO  FACES 
6 

EDGE  IS  IS  ATTACHED  TO  FACES 

7 

EDGE  16  IS  ATTACHED  TO  FACES 

8 


FREQ=  3.00000E+08 

SURFACE  CURRENTS 


EDGE  NUMBER 

CURRENT  DENSITY 

(AMPS/METER) 

REAL 

IMAGINARY 

MAGNITUDE 

PHASE(DEG) 

1 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

2 

0 . OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

3 

0 . OOOOOE+OO 

0.  OOOOOE+OO 

0. OOOOOE+OO 

4 

-0 . 13488E-09 

-0.64974E-08 

0 . 64988E-08 

90.000 

5 

0 . 60233E-0S 

0.51320E-03 

0 . S1324E-03 

89.327 

6 

0 . 13376E-03 

0.4282SE-02 

0 . 42846E-02 

88.211 

7 

0. OOOOOE+OO 

O.OOOOOE+OC 

0 .OOOOOE+OO 

8 

-0 . 60286E-05 

-0.S1321E-03 

0 . 51325E-03 

-90.673 

9 

0 . 60279E-05 

0 . 51321E-03 

0 .  51324E-03 

89.327 

10 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

11 

-0. 13376E-03 

-0.42825E-02 

0 . 42846E-02 

-91.789 

12 

-0.60277E-05 

-0 . 51320E-03 

0.51323E-03 

-90.673 

13 

0 . 24486E-09 

0.83496E-08 

0 . 83532E-08 

90.000 

14 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

15 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

16 

0. OOOOOE+OO 

0. OOOOOE+OO 

0 .OOOOOE+OO 
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3.3.4  FOR009.DAT 

c 

C  FOR009.DAT  :  OUTPUT  DATA  ASSOCIATED  WITH  WIRE 
C 

NODES  SEGMENTS 

4  3 

NODE  #  X  Y  Z 

1  O.OOOOOOGE+OO  O.OOOOOOOE+OO  0 . OOOOOOOE+OO 

2  O.OOOOOOOE+OO  O.OOOOOOOE+OO  5 . 0000001E-02 

3  O.OOOOOOOE+OO  O.OOOOOOOE+OO  O.IOOOOOO 

4  O.OOOOOOOE+OO  O.OOOOOOOE+OO  0.1500000 

SEG.  #  FROM  TO  RADIUS 

1  1  2  1.0000000E-03 

2  2  3  1 .0000000E-03 

334  1.0000000E-03 

SEG.  #  CENTER  POINT  COORDINATES 

1  O.OOOOOOOE+OO  O.OOOOOOOE+OO  2.5000000E-02 

2  O.OCOOOOOE+OO  O.OOOOOOOE+OO  7 . 5000003E-02 

3  O.OOOOOOOE+OO  O.OOOOOOOE+OO  0.1250000 

TOTAL  UNKNOWN  NUMBER  =  3 

NODE  *  MULTIPLICITY 

1  1 

2  1 

3  1 

4  0 

SURFACE  CURRENTS 

EDGE  NUMBER  CURRENT  DENSITY  (AMPS/METER) 

REAL  IMAGINARY  MAGNITUDE  PHASE(DEG) 

1  0 . 12649E-03  0.50176E-02  0.50192E-02  88.556 

2  0 . 1 1298E-03  0.3S006E-02  0.35024E-02  88.152 

3  0.72494E-04  0.18988E-02  0.19002E-02  87.814 

4  0 . OOOOOE+OO  O.OOOOOE+OO 
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FOR004.DAT 


3.3.5 

c 

C  F0R004.DAT  :  SURFACE  CURRENT  LISTING 
C 

FREQ=  3 . OOO0OE+O8 


SURFACE  CURRENTS 


EDGE  NUMBER 

REAL 

1  0 . OOOOOE+OO 

2  0 . OOOOOE+OO 

3  0 . OOOOOE+OO 

4  -0.13488E-09 

5  0 . 60283E-05 

6  0.13376E-03 

7  0. OOOOOE+OO 

8  -0 . 60286E-05 

9  0.60279E-0S 

10  0. OOOOOE+OO 

11  -0.13376E-03 

12  -0.60277E-05 

13  0.24486E-09 

14  0. OOOOOE+OO 

15  0. OOOOOE+OO 

16  0. OOOOOE+OO 

1  0 , 12649E-03 

2  0 . 1 1298E-03 

3  0 . 72494E-04 

4  0. OOOOOE+OO 


CURRENT  DENSITY  (AMPS/METER) 


IMAGINARY 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
-0.64974E-08 
0.S1320E-03 
0 . 42825E-02 
0. OOOOOE+OO 
-0.S1321E-03 
0.51321E-03 
0. OOOOOE+OO 
-0 . 42825E-02 
-0.51320E-03 
0.83496E-08 
0 .OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0 . 50176E-02 
0 . 35006E-02 
0. 18988E-02 
0. OOOOOE+OO 


MAGNITUDE 
0 . OOOOOE+CO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0 . 64988E-08 
0.S1324E-03 
0 . 42846E-02 
0. OOOOOE+OO 
0.S1325E-03 
0.51324E-03 
0.  OOOOOE+OO 
0 . 42845E-02 
0 . 51323E-03 
0 . 83532E-08 
0. OOOOOE+OO 
0, OOOOOE+OO 
0. OOOOOE+OO 
0 . 50192E-02 
0 . 35024E-02 
0. 19002E-02 


PHASE(DEG) 


90.000 

89.327 

88.211 

-90.673 

89.327 

-91.789 

-90.673 

90.000 


88.556 

88.152 

87.814 
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3.3.6  FOR010.DAT 

c 

C  F0R010.DAT  :  FAR  FIELD  PATTERN  LISTING 


c 

FAR  FIELD  PATTERN 

ITHETA 

THETA 

IPHI 

PHI 

ETH( ITHETA, IPHI) 

EPH (ITHETA, 

IPHI) 

1 

0. 

00 

1 

0. 

00 

-4. 

66E-10 

-9. 

81E- 

10 

8. 

03E- 

■09 

-1 . 

34E- 

09 

2 

10. 

00 

1 

0. 

00 

-1 . 

20E-02 

-5. 

22E- 

03 

4. 

46E- 

■06 

1 . 

15E- 

04 

3 

20. 

00 

1 

0. 

00 

-2. 

38E-02 

-9  . 

80E- 

03 

8. 

77E- 

■06 

2. 

26E- 

■04 

4 

30. 

00 

1 

0. 

00 

-3. 

52E-02 

-1  . 

32E- 

02 

1 . 

28E- 

■OS 

3. 

30E- 

•04 

S 

40. 

.00 

1 

0. 

00 

-4. 

58E-02 

-1 . 

49E- 

02 

1 . 

64E- 

■05 

4. 

23E- 

■04 

6 

50. 

.00 

1 

0. 

00 

-5. 

54E-02 

-1  . 

47E- 

02 

1 . 

95E- 

■05 

5. 

03E- 

•04 

7 

60. 

00 

1 

0. 

00 

-6. 

35E-02 

-1 . 

26E- 

02 

2. 

19E- 

•05 

5. 

68E- 

•04 

8 

70. 

.00 

1 

0 

00 

-6. 

.  96E-02 

-8 

.  67E- 

03 

2. 

.  38E- 

•05 

6. 

15E- 

■04 

9 

80 

.00 

1 

0. 

00 

-7  . 

,  34E-02 

-3 

.  49E- 

03 

2. 

49E- 

•05 

6. 

.  43E- 

■04 

10 

90 

.00 

1 

0. 

00 

-7. 

.  4SE-02 

2 

.  34E- 

03 

2. 

.  52E- 

•05 

6 

.  53E- 

■04 

11 

100. 

00 

1 

0. 

00 

-7. 

30E-02 

8 

.  09E- 

■03 

2 

.  49E- 

•05 

6. 

.  43E- 

■04 

12 

110 

.00 

1 

0 

.00 

-6 

.  89E-02 

1 

.  30E- 

02 

2 

.  38E- 

-05 

6 

.  15E- 

-04 

13 

120 

.00 

1 

0 

.00 

-6 

.  26E-02 

1 

.  65E- 

•02 

2 

.  19E- 

-05 

5 

.  68E- 

-04 

14 

130 

.00 

1 

0 

.00 

-5 

44E-02 

1 

.  8 1E- 

•02 

1 

.  95E- 

-05 

5 

.  03E- 

-04 

1C 

140 

.00 

4 

0 

.00 

-4 

.  48E-02 

1 

.  77E- 

•02 

1 

.  64E- 

-05 

4 

.  23E- 

-04 

16 

150 

.00 

1 

0 

.00 

-3 

.  43E-02 

1 

.  53E- 

•02 

1 

.  28E- 

-05 

■3 

.  30E- 

-04 

17 

160 

.00 

1 

0 

.00 

-2 

.  31E-02 

1 

.  13E- 

■02 

8 

.  77E- 

-06 

2 

.26E- 

-04 

18 

170 

.00 

1 

0 

.00 

-1 

.  16E-02 

5 

.  95E- 

■03 

4 

.  46F.' 

-06 

1 

.  15E- 

-04 

19 

180 

.00 

1 

0 

.00 

4 

.66E-10 

9 

.  81E- 

-10 

8 

.  03E1 

-09 

-1 

.  34E- 

-09 
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3.3.7  FOR011.DAT 

c 

C  FOR011.DAT  :  CHARGE  DENSITY  LISTING 
C 

SURFACE  CHARGE 

FACE  NUMBER  CHARGE  DENSITY  (COULOMBS/SQ . METER) 


REAL 

IMAGINARY 

MAGNITUDE 

1 

-0 .6110300E-10 

0. 1613704E-11 

0 . 61 12431E- 10 

0. 

2 

-0 . 642605SE- 10 

0 . 2007 1S8E- 1 1 

0 . 6429 188E- 10 

0  . 

3 

-0 . 61 103 10E- 10 

0. 161370SE-11 

0 . 61 12440E- 10 

C. 

4 

-0 . 7972668E- 10 

0. 1476099E-11 

0 . 797403SE- 1 0 

0. 

5 

-0 . 7972668E- 10 

0. 1476101E-11 

0 . 7974035E- 10 

0. 

6 

-0 .6110314E-10 

0. 1613713E-11 

0 . 6112445E-10 

0 

7 

-0 . 64260S2E- 10 

0 . 2007 157E- 1 1 

0 . 6429186E- 10 

0 

8 

-0.61 10301E-  10 

0. 1613709E-11 

0 . 6 1 1243  IE- 10 

0 

TOTAL  CHARGE  ON  THE 

BQDY  =  (  -0 . 266 1934E- 1 1  0.6710674E- 

13 

CHARGE  DENSITY 

ON  HIRE 

SEGMENT  NUMBER 

CHARGE  DENSITY 

(CO'JLOMBS/METER) 

REAL 

IMAGINARY 

MAGNITUDE 

1 

0. 1609630E-10 

-0. 1434 157E- 12 

0. 1609694E- 10 

-0 

2 

0. 1699554E-10 

-0 . 4295376E- 12 

0. 1700096E-10 

-0 

3 

0 . 2014683E- 10 

-0.76918 13E- 12 

0 . 20 161S1E- 10 

-0 

TOTAL  CHARGE  ON  THE  WIRE=  (  0 . 266 1934E- 1 1  -0 . 67 10673E- 13 


3S 


PHASE 

1784872E+03 

1782110E+03 

1784872E+03 

1789393E+03 

1789393E+03 

1784872E+03 

1782110E+03 

1784872E+03 

)  COULOMBS 


PHASE 

.  5 104834E+00 
.  1447760E+01 
.  2186421E+C1 

)  COULOMBS 
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Appendix  A 
Program  Listings 


following  is  a  FORTRAN  listing  of  the  computer  program  JUNCTION  and  its  supporting  subpro¬ 
grams.  Only  the  called  LINPACK  [5]  subroutines  CGEFA  and  CGESL,  which  solve  linear  systems 
of  simultaneous  equations  are  not  included  in  the  listing.  If  these  routines  are  not  readily  available, 
any  equivalent  equation-solving  subroutines  can  be  substituted. 
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A.l  JUNCTION 


PROGRAM  JUNCTION  VI . 1 


ELECTROMAGNETIC  SCATTERING  AND  RADIATION  BY  WIRES  ATTACHED  TO 
CONDUCTING  SURFACES  OF  ARBITRARY  SHAPE 


SHIAN-UEI  HWU 

APPLIED  ELECTROMAGNETICS  LAB 
UNIVERSITY  OF  HOUSTON 

HOUSTON,  TX77004 


THIS  PROGRAM  WAS  DEVELOPED  AS  AN  EXTENSION  OF  THE  ELECTRIC  FIELD 
INTEGRAL  EQUATION  SURFACE  PATCH  CODE  AND  THIN  WIRE  CODE 

ORIGINAL  PATCH  VERSION  BY  S .  M.  RAO 
ORIGINAL  WIRE  VERSION  BY  S.  SINGH 


REORGANIZATION  AND  EXTENSIONS  BY  W. 
SANDIA  NATIONAL  LAB  1984 


A.  JOHNSON  OF 


INPUT  DATA  IN  F0R002 . DAT(BODIES)  AND  F0RO08 . DAT (WIRES) 

OUTPUT  DATA  IN  F0ROO3 . DAT , F0ROO4 . DAT (BODIES) ,  F0R009 . DAT(WIRES) 
MODELING  CAPABILITIES  INCLUDE  SYMMETRY  PLANES  AND/OR  GROUND  PLANES 


MAIN 

1 . 


2. 

3. 


4. 

5. 

6. 

7. 


DATGEN  :  TO  CREATE  INPUT  DATA  OF  BODY  AND  WIRE 

1.1.  WIRDAT  :  TO  CREATE  A  STRAIGHT  WIRE 

1.2.  NECDAT  :  TO  READ  INPUT  DATA  IN  NEC  FORMATE 
BODIN  :  TO  READ  INPUT  DATA  ASSOCIATE  WITH  BODIES 
WIRIN  :  TO  READ  INPUT  DATA  ASSOCIATE  WITH  WIRES 

3.1.  FNDJUN  :  TO  FIND  JUNCTION  NODES  IF  THERE  ARE  ANY 

3.2.  WIRMUL  :  TO  FIND  MULTIPLICITY  OF  WIRE  SEGMENTS 
ADWMUL  :  TO  ADJUST  MULTIPLICITY  OF  EACH  WIRE  NODE  IF 

THERE  ARE  ANY  GROUNG  PLANE  ATTACHED 
TO  FIND  FACES  DATALIST  OF  BODIES 
ORIENT  THE  FACE  OF  BODIES 
FIND  NORMAL  VECTOR  OF  CLOSED  BODY 
:  TO  FIND  EDGES  ASSOCIATED  WITH  FACE 
TO  FIND  VERTICES  ASSOCIATED  WITH  FACE 
TO  FIND  COORDINATES  OF  THE  VERTICES 
PRINT  THE  EDGES  AND  THE  VERTICES  OF  EACH  FACE 


TO 

TO 


FACMUL 
ORTFAC 
CLSBOD 

7.1.  FACEDG 

7.2.  FACVTX : 

7.3.  VTXCRD : 
FACOUT  :  TO 
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o  o  o  *  *  #  *  *00000000000*000000000000000000 


C  8.2.  FACVTX :  TO  FIND  VERTICES  ASSOCIATED  WITH  FACE 

C  9.  ADBMUL  :  TO  ADJUST  MULTIPLICITY  OF  EACH  EDGE  IF 

C  THERE  ARE  ANY  GROUNG  PLANE  ATTACHED 

C  10.  BODPAR  :  TO  CALCULATE  PARAMETERS  ASSOCIATED  WITH  BODIES 
C  10.2.  FACVTX:  TO  FIND  VERTICES  ASSOCIATED  WITH  FACE 

10.3.  VTXCRD :  TO  FIND  COORDINATES  OF  THE  VERTICES 

11.  EDGFAC  :  TO  FIND  FACES  ATTACHED  TO  EACH  EDGE 

12.  SOLTN  :  TO  SOLVE  THE  MATRIX  EQUATION 

12.1.  JUNFAC  :  TO  FIND  FACES  ATTACHED  TO  EACH  JUNCTION 

12.2.  JANGLE  :  TO  FIND  VERTEX  ANGLE  OF  EACH  JUNCTION  FACE 

12.3.  BCUMUL  :  TO  ACCUMULATE  THE  MULTIPLICITIES  UP  TO 
EACH  EDGE 

12.4.  MTXWIR  :  TO  FILL  IMPEDANCE  MATRIX 
FOR  SOURCE  ON  THE  WIRES 

12.5.  ZBB  : TO  FILL  IMPEDANCE  MATRIX 
FOR  SOURCE  AND  OBSERVATION  ON  THE  BODIES 

12.6.  ZWB  :T0  FILL  IMPEDANCE  MATRIX 
FOR  SOURCE  ON  THE  BODIES  AND  OBSERVATION 
ON  THE  WIRES 

12.7.  CGEFA  :  TO  INVERSE  THE  IMPEDANCE  MATRIX 

12.8.  CGESL  :  TO  SOLVE  THE  UNKNOWN  MATRIX 


MXUNKN  =  MAXIMUM  NUMBER  OF  UNKNOWNS  EXPECTED.  * 

BODIES: 

MXEDGS=MAXIMUN  NUMBER  OF  EDGES  EXPECTED 
MXBDND=MAXIMUN  NUMBER  OF  NODES  EXPECTED 
MXFACE=MAXIMUN  NUMBER  OF  FACES  EXPECTED 
MXDJBD=MAXIMUN  NUMBER  OF  DISJOINT  BODIES  EXPECTED 
MXMULT=MAXIMUM  MULTIPLICITY  OF  ANY  EDGE  OVER  ALL  EDGES 
MXEXCI=MAXIMUM  NUMBER  OF  EXCITATIONS. 

MXFREQ=MAXIMUM  NUMBER  OF  FREQUENCY  CASES  TO  BE  RUN. 

MN JFACE :MAXIMUN  NUMBER  OF  FACE  ATTACHING  TO  JUNCTION  POINT 

WIRES: 

MXWNOD  =  MAXIMUM  NUMBER  OF  WIRE  NODES.  * 

MXWMLT  =  MAXIMUM  MULTIPLICITY  THAT  ANY  WIRE  NODE  MAY  HAVE.  * 

MXWSEG  =  MAXIMUM  NUMBER  OF  WIRE  SEGMENTS.  * 

MXWVLT  =  MAXIMUM  NUMBER  OF  DELTA  GAP  VOLTAGE  SOURCES  ON  THE  WIRES.  * 


PROGRAM  JUNCTION 
IMPLICIT  COMPLEX (C) 

732  IS  THE  MAXIMUN  DIMENSION  CAN  BE  RUN  ON  GEORGE  (VAX8S30  IN  UH) 
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C  PARAMETER (MXUNKN=  732,MXBDND=  500,MXEDGS=  732,MXFACE=  600, 

C 

C  FOR  BODIES 
C 

PARAMETER (MXUNKN=  600,MXBDND=  250,MXEDGS=  600,MXFACE=  500, 

$  MXDJBD=1,MXMULT=  2 ,MXEXCI=1 ,MXFREQ=1 ,MNJFACE=  34) 

C 

C  FOR  WIRES 
C 

PARAM£TER(MXWNOD=  41  ,MXWMLT=1 ,MXWSEG=  41,MXWVLT=2) 

COMPLEX  CZ (MXUNKN , MXUNKN ) ,CV(MXUNKN) , CWORK(MXUNKN) .CWVLT(MXWVLT) 
INTEGER  NC0NN(3 .MXEDGS) , IWORK(MXEDGS) .NBOUND (3 ,MXFACE) , 

$  ISTARTCMXDJBD+l) .NBE(MXDJBD) , IPVT(MXUNKN) , 

$  IEDGFCMXMULT+1, MXEDGS), IGNDPC3) .NBJUN(MXWNOD) , 

$  NW  JUN (MXWNOD) .MULTW(KXWNOD) .NSEGCC2.MXWSEG) , 

$  INSEG(MXWMLT+1 .MXWNOD) .NODVLT(MXWVLT) 

REAL  DATN0D(3,MXBDND) ,EXCITE(7 .MXEXCI) , 

$  WN0DE(3, MXWNOD) ,WSECH(3,MXWSEG) , RAD(MXWSEG) 

C 

C  FOR  WIRE 
C 

REAL  ANG (MXWNOD .MNJFACE) 

INTEGER  NJFACE(MXWNOD, MNJFACE) ,MIf ACE(MXWNOD) , WIRSUM(MXWNOD) 
CHARACTER* 1  ID,IG,IC,IS 
CHARACTER* 15  NECNAM , IGUNAM 

C 

C0MM0N/TEST/RATI01 , RATI02 , RATI03 
COMMON/MCHVAL/VALMAX , VALMIN 
COMMON/ I GUANA/ I G 
COMMON/CPU/TGG , IC 
MULT 1 =MXMULT ♦ 1 
VALMAX=  1E35 
VALMIN=- 1E35 
C 

C  SET  TESTING  BOUNDARY  TO  USE  1,3,  OR  7  SAMPLING  POINTS 
C  IN  NUMERICAL  INTEGRATION 
C 

RATI01=1 . 

RATI02=9. 

RATI03=100 . 

C  INPUT  DATA  IN  F0ROO2 . DAT(BODIES)  AND  F0R008 . DAT(WIRES) 

C  OUTPUT  DATA  IN  FOR003. DAT, F0ROO4 .DAT (BODIES) ,  F0R009 . DAT (WIRES) 

WRITE(6  ,  *)  ’ . . — . . . ’ 

WRITE(6 , *) ’  MOMENT  METHOD  SOLUTION  ’ 

WRITE(6,*) ’WIRES  ATTACHED  TO  CONDUCTING  SURFACES  ’ 
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WRITE(6,*)  ’ — - - ’ 

WRITE(6 , *)  ’  ’ 

C 

C  CALL  DATGEN  TO  GENERATE  INPUT  DATA  FOR  BODY  AND  WIRE 
C 

WRITE(6 , *) 1  DO  YOU  WANT  TO  GENERATE  INPUT  DATA?  (YES  OR  NO)’ 

55  CALL  E0FCLRC5) 

READ(5 ,5 ,END=55) ID 

5  FORMAT(A) 

IFCID.EQ. ’Y’)THEN 
CALL  DATGEN 

WRITE(6 ,  *) ’  ***  INPUT  DATA  CREATED  ***’ 

WRITE(6 ,  *)  1  ’ 

ELSE 

WRITE(6 , *) 1  IF  INPUT  DATA  EXIST  SHOULD  BE  AS  F0R002 . DAT (BODIES) 
$AND  F0ROO8.DAT(WIRES) ’ 

WRITE(6 ,  *)  ’  ’ 

END  IF 

WRITE(6,*) ’DO  YOU  WANT  TO  TRANSFER  INPUT  DATA  TO  NEC  AND  IGUANA 
$  FORMAT?  (YES  OR  NO)’ 

56  CALL  E0FCLR(5) 

READ(5,5,END=56)IG 
IF(IG.EQ. ’Y’)THEN 

WRITE(6,*) ’GIVE  A  FILENAME  TO  NEC  FORMAT  DATA  FILE’ 

57  CALL  EQFCLR(5) 

READ (5 , 5 ,END=57)NECNAM 
C 

WRITE(6,*) ’GIVE  A  FILENAME  TO  IGUANA  FORMAT  DATA  FILE  (name . NEC) ’ 

58  CALL  E0FCLR(5) 

READ(5 ,5 ,END=58) IGUNAM 
ENDIF 

C 

WRITE(6,») ’DO  YOU  WANT  TO  STOP  TO  CHECK  GEOMETRY  DATA  ? 

$  (YES  OR  NO)  ’ 

59  CALL  E0FCLR(5) 

READ(5 , 5 , END=S9) IS 

C 

IF(IS.NE. ’Y’ )THEN 

WRITE(6,*) 'DO  YOU  WANT  TO  SHOW  CPUTIME?  (YES  OR  NO)’ 

61  CALL  E0FCLR(5) 

READ ( 5 , 5 , END=6 1 ) IC 
ENDIF 
C 

C  CALL  RUNTIME  LIBRARY 
C 
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oo  oooo  ooooooo  ooo  oo 


T 


c 

c 


IERR=LIB$ERASE_PAGE(1 , 1) 
IERR=LIB$INIT_TIMER(  ) 
OPEN  I/O  FILES 


OPEN (2 ,FILE= ’ FOR002 .DAT  * ,TYPE= ' OLD ’ ) 
REWIND(2) 

READ(2,*)NJCT 

REWIND(2) 

IF (NJCT .GE .0)THEN 

OPEN (8 ,FILE= ’ FOR008 . DAT 1 ,TYPE= ’ OLD ’ ) 
REWINDC8) 

ENDIF 

IFCIG.EQ. ‘Y’)THEN 

OPEN (12, FILE=N£CNAM , TYPE= ’ NEW ’ ) 

REWINDC12) 

OPEN ( 18 , FILE=IGUNAM , TYPE= ’ NEW ’ ) 
REWIND(18) 

ENDIF 


READ  INPUT  DATA  ASSOCIATE  WITH  BODIES 

CALL  BODIN (MXBDND , MXEDGS , DATNOD , NCONN , NNQDES , 

SNEDGES , MXEXCI , EXCITE , NEXCIT , N JCT , MNJUN , MXWVLT , NWVLT , 
SNODVLT , CWVLT , IPAT , ITOT) 

NBJUN(I) -.BODY  NODE  NUMBER  OF  THE  ITH  JUNCTION  I  =  1,MNJUN 
NWJUN(I) : WIRE  NODE  NUMBER  OF  THE  ITH  JUNCTION  I=1,MNJUN 


IF(NJCT.GE.O)  THEN 


READ  INPUT  DATA  ASSOCIATE  WITH  WIRES 

CALL  WIRIN (MXWNOD , MXWMLT , MXWSEG , NWNOD , NWSEG , NWUNKS , WNODE , MULTW , 

$  NSEGC , WSEGH , RAD , INSEG , DATNOD , NNODES , N JCT ,MN JUN , NW JUN , NB JUN) 

TO  RECALCULATE  MULTIPLICITY  OF  EACH  WIRE  NODE  IF 

THERE  ARE  ANY  GROUNG  PLANE  ATTACHED 

CALL  ADWMUL ( NWNOD , WNODE , MULTW , NWUNKS) 

ELSE 

TO  AVOID  ZERO  DIMENSIONAL  ARRAY 

C 
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o  o  o  o 


NWN0D=1 

NWSEG=1 

NWUNKS=0 

ENDIF 

C 

C  TO  FIND  FACES  DATALIST  OF  BODIES 
C 

CALL  FACMUL (NCONN , NEDGES , IWORK , NBOUND , MXFACE , NFACES , NUNKNB) 

C 

C  TO  NUMBER  ALL  EDGES  OF  BODIES 
C 

CALL  ORTFAC (NCONN , NBOUND , NFACES , NEDGES , MXDJBD , IWORK , ISTART , NBODYS , 
$  NBE) 

DO  10  1=1, NBODYS 

C 

C  TO  FIND  NORMAL  VECTOR  OF  CLOSED  BODY 

C 

IF(NBE(I) ,EQ.O)CALL  CLSBOD(DATNOD, NCONN, NBOUND, NNODES, NEDGES, 

$  NFACES, I, ISTART) 

C 

C  TO  PRINT  THE  EDGES  AND  THE  VERTICES  OF  EACH  FACE 

C 

CALL  FACOUT(NCONN .NBOUND , ISTART , I .NEDGES .NFACES , NBODYS , 

$  DATNOD, NNODES) 

C 

10  CONTINUE 
C 

IFCIS.EQ. ’Y’)THEN 
WRITEC6,*)’  ’ 

WRITEC6,*) ’***  INPUT  DATA  FILE  IN  NEC  FORMAT  COMPLETED  ***’ 
WRITEC6,*)’  ’ 

WRITEC6.*) ’***  INPUT  DATA  FILE  IN  IGUANA  FORMAT  COMPLETED  ***> 
WRITE(6 ,*) ’  ’ 

WRITE (6,*) ’***  USE  MODEL  MAKER  IN  IGUANA  TO  PLOT  GEOMETRY  **’ 
WRITE (6 , *) ’  * 

WRITEC6,*) ’***  IF  DATA  TRANSFER  TO  OTHER  COMPUTER  SYSTEM  CHECK 
$  DATA  AGAIN  **’ 

WRITE(6  ,  *)  ’  ’ 

STOP 

ENDIF 

C 

EDGEP  :  TO  RECALCULATE  MULTIPLICITY  OF  EACH  EDGE  IF 
THERE  ARE  ANY  GROUNG  PLANE  ATTACHED 
BODPAR  :  TO  CALCULATE  PARAMETERS  ASSOCIATED  WITH  BODIES 
EDGFAC  :  TO  FIND  FACES  ATTACHED  TO  EACH  EDGE 


46 


c 

CALL  ADBMUL (NNODES , NEDGES , DATNOD , NCONN , NUNKNB) 

CALL  BODPAR(DATNOD  , NCONN  ,  NBOUND ,  NNODES , NEDGES , NFACES , NUNKNB) 
CALL  EDGFAC (NCONN , NEDGES , NBOUND .NFACES , IEDGF , MULTI ) 

C 

C  NUNKNT :  NUMBER  OF  TOTAL  UNKNOWNS 
C  NUNKNB:  NUMBER  OF  BODIES  UNKNOWNS 
C  NWUNKS :  NUMBER  OF  WIRES  UNKNOWNS 
C 

NUNKNT=NUNKNB+NWUNKS 

C 

C  CHECK  IF  DECLARED  DIMENSION  IS  ENOUGH 
C 

IF (NUNKNT . GT . MXUNKN )  THEN 

WRITE(6,*) ’DECLARED  DIMENSION  FOR  TOTAL  UNKNOWNS 
$  IS  INSUFFICIENT’ 

STOP 

ENDIF 

C 

WRITE(6 , *) ’ ***  GEOMETRY  PART  COMPLETED  ***’ 

C 

IFUC.EQ.  ’Y’)THEN 

C 

IERR=LIB$STAT_TIMER(  1,  ITG1,  ) 

TGG=FLOAT(ITG1)/6000 . 

C 

WRITE(6,») ’CPUTIME  FOR  GEOMETRY  =  ’ ,TGG , ’  MINUTES’ 

ENDIF 

C 

WRITE (6 , *) ’  ’ 

WRITE (6 , *) ’  EXECUTION  . ’ 

C 

C  TO  FILL  AND  SOLVE  THE  MATRIX  EQUATION 
C 

CALL  SOLTN (CZ , CV , NUNKNT , IPVT , CWORK , DATNOD , NCONN , NBOUND , NEDGES . 

$  NFACES . NNODES , IEDGF , MULTI , EXCITE , NEXCIT , 

$  MXFREQ , IWORK , NUNKNB . NWNOD , NWSEG , NWUNKS , WNODE , MULTW , NSEGC , 

*  WSEGH , RAD , INSEG .NJCT.MNJUN .NWJUN . NBJUN , 

A  WIRSUM , ANG . MNJFACE , NJFACE , MIFACE , MXWMLT , NWVLT , NODVLT , CWVLT , 

*  IPAT.ITOT) 

END 
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A. 2  DATGEN 

SUBROUTINE  DATGEN 

C - 

*  THIS  SUBROUTINE  CREATES  INPUT  DATA  FOR  BODY  AND  WIRE 

*  FOR  JUNCTION  PROGRAM 

*  MXFACE=MAXIMUN  NUMBER  OF  FACES  EXPECTED. 

*  MXBNOD=MAXIMUM  NUMBER  OF  BODY  NODES. 

*  MXBEDG=MAXIMUM  NUMBER  OF  BODY  EDGES. 

*  CLOSE=THE  MAXIMUM  SPACE  BETWEEN  TWO  POINTS  AND  STILL  ATTACH. 

C - - - - - 

PARAMETER (MXBNOD= 1000 , MXBEDG= 1000 , MXFACE= 1000) 
PARAMETER(CL0SE=1 .E-4) 

C 

CHARACTER- 4  TD , IN 
1  FORMAT(Al) 

INTEGER  IBEDGE(?,MXBEDG) ,IFACEo(3,MXFACE) ,ITRAK(MXBEDG/2) 
REAL  BN0DES(3 .MXBNQD) 

C 

COMMON  /BODY/  NBNODS , NBEDGS , NFACES 
COMMON  /SPACE/  SPACE 

C 

SPACE=CLOSE 

ID=’N’ 

IFCID.EQ. ’ Y’ )THEN 
CALL  READIN (BNODES , IBEDGE) 

ELSEIFCID.EQ. ’ N’ )THEN 

PRINT*,’*****  DEFINE  THE  BODY  AND  WIRE  **♦**’ 

PRINT*, 'HOW  MANY  BODY/WIRE  JUNCTIONS  ?’ 

PRINT*, ’IF  NO  JUNCTION  TYPE  0’ 

PRINT*, ’IF  NO  WIRE  TYPE  -1’ 

100  CALL  EOFCLR(S) 

READ(5,*,END=100)NJUN 

NBN0DS=0 

NBEDGS=0 

ELSEIFCID.EQ. ’ Q ’ )THEN 
GOTO  999 
ELSE 

GOTO  100 
END  IF 

200  CALL  E0FCLRC5) 

PRINT*,’ DO  YOU  WISH  TO’ 

PRINT*,’  Z  READ  GEOMETRY  DATA  IN  NEC  FORMAT’ 

PRINT*,’  A  CREATE  A  QUADRANGLE’ 
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300 


T 


PRINT* , '  B  CREATE  A  CYLINDER’ 

PRINT*,’  C  CREATE  A  CONE’ 

PRINT*,’  D  CREATE  A  DISK’ 

PRINT*,’  E  CREATE  A  SPHERE’ 

PRINT*,’  G  CREATE  A  STRAIGHT  WIRE’ 

PRINT*,’  H  QUERY  NODES,  EDGES,  AND/OR  FACES’ 
PRINT*,’  I  ADD,  DELETE,  OR  MOVE  A  NODE  OR  EDGE’ 
PRINT*,’  J  ENTER  TEST  DATA’ 

PRINT*,’  K  START  OVER’ 

PRINT*,’  Q  QUIT  -  SAVE  NOTHING’ 

PRINT*, ’INPUT  "Z"  "A-K"  OR  "Q"’ 

READ(S , 1 ,END=200) ID 
IF(ID.EQ. ’ Z ’ )THEN 
IN= ’ Z ’ 


CALL  NECDAT(NJUN) 

ELSEIF(ID . EQ . ’ A ’ )THEN 

CALL  BQUAD (BNODES , IBEDGE) 

ELSEIFCID. Eq. ’B’)THEN 

CALL  CYLINDCBNODES, IBEDGE) 

ELSEIFCID . EQ . ’ C ’ )THEN 
CALL  CONECBNODES, IBEDGE) 

ELSEIF  C ID . EQ . ’ D ’ )THEN 
CALL  DISKCBNODES, IBEDGE) 

ELSEIFCID. EQ. ’E’)THEN 

CALL  SPHERECBNODES, IBEDGE) 

ELSEIFCID. EQ. ’ G ’ )THEN 
CALL  WIRDAT 
ELSEIFCID. EQ. ’H’)THEN 

CALL  QUERY CBNODES , IBEDGE , IFACES , ITRAK) 

ELSEIFCID. EQ. ’I’)THEN 

CALL  CHANGEC6H0DES, IBEDGE) 

ELSEIFCID. EQ. ’ J ’ )THEN 

IFCIN.NE. ’Z’)  CALL  WRI OUT CBNODES , IBEDGE , N JUN) 

CALL  E0FCLRC5) 

PRINT*, ’***•*  DEFINE  TEST  PARAMETERS  *****’ 

ID= ’ Y’ 

IFCID.EQ. ’Y’)THEN 
CALL  TSTDAT 
ELSEIFCID. NE. ’ N ’ )THEN 
GOTO  999 
ENDIF 
GOTO  999 

ELSEIFCID. EQ. ’ K ’ )THEN 
NBN0DS=O 
NBEDGS=0 
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ELSEIFCID .EQ . ’ Q ’ )THEN 
STOP 
ENDIF 
GOTO  200 
999  CONTINUE 
END 


A. 3  READIN 

SUBROUTINE  READIN (BNODES , IBEDGE) 

DIMENSION  BN0DES(3,*) ,IBEDGE(2,*) 

COMMON  /BODY/NBNODS , NBEDGS , NFACES 
REWINDC2) 

READ(2,*)NBN0DS. NBEDGS 
DO  10  J=1  .NBNODS 

READ (2,*) NODE, (BNODES (I. NODE) ,1*1,3) 

10  CONTINUE 

DO  20  J=l, NBEDGS 

READ(2,*)NEDGE, (IBEDGE(I .NEDGE) ,1=1,2) 
20  CONTINUE 
RETURN 
END 


A. 4  BQUAD 

SUBROUTINE  BQUAD (BNODES , IBEDGE) 

DIMENSION  BN0DES(3,*) ,IBEDGE(2,*) ,C(3,4) 

COMMON  /BODY/NBNODS , NBEDGS , NFACES 
C 

PRINT*, 'ENTER  (X,Y,Z)  FOR  THE  4  CORNERS  IN  SEQUENCE 
DO  10  1=1,4 

PRINT*, ’?  CORNER  ’ ,1 

9  CALL  E0FCLR(5) 

READ (5 , * ,END=9)C( 1 , 1 ) ,C(2, 1) ,C(3 , 1) 

10  CONTINUE 

PRINT*,’ HOW  MANY  EDGES  ALONG  THE  SIDE  FORMED  BY’ 
PRINT*, ’THE  FIRST  2  CORNERS?’ 
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11  CALL  E0FCLR(5) 

READ (5 , * , END=1 1 ) NSEG 
N=NSEG+1 

PRINT*. 'HOW  MANY  EDGES  ALONG  THE  ADJACENT  SIDE  ?’ 
21  CALL  EOFCLR(S) 

READ (5 ,* ,END=21)MSEG 
M=MSEG+1 

IF (NSEG . EQ .0  .OR.  MSEG .EQ .0) RETURN 
NN0DE1=NBN0DS+1 
NVERTS=N*M 
ILDBNOD=NBNODS 
NBNODS=NBNODS+NVERTS 
L1=NN0DE1 
L2=NN0DE1+NSEG 
L3=NBN0DS 
L4=NBN0DS-NSEG 
C 

*  ASSIGN  THE  VERTICES  TO  THE  PROPER  ARRAY  ELEMENTS 

C 

BN0DES(1 ,L1)=C(1  , 1) 

BN0DES(2 ,Ll)=C(2,l) 

3N0DES(3,L1)=C(3,1) 

BNCDESd  ,L2)=C(1  ,2) 

BN ODES (2 ,L2)=C(2 ,2) 

BN ODES (3 ,  L2)=C(3,2) 

BN ODES ( 1 , L3)=C ( 1 ,3) 

BN0DES(2,L3)=C(2,3) 

BN ODES (3 ,L3)=C(3,3) 

BNCDES(1 ,L4)=C(1 .4) 

BN0DES(2,L4)=C(2,4) 

BN0DES(3 , L4) =C(3 ,4) 

C 

*  COMPUTE  EDGE  POINTS  ALONG  THE  TOP  AND  BOTTOM. 

C 

DX1= (BNODESC 1 , L2) -BNODES (1 , LI ) ) /NSEG 
DY 1=(BN0DES(2 ,L2) -BN0DES(2 ,L1) ) /NSEG 
DZ1=( BNODES (3 ,L2) -BNODES (3 , Ll ) ) /NSEG 
DX2= (BNODES (1 . L3) -BNODES (1 , L4) ) /NSEG 
DY2= (BNODES (2 ,L3) -BNODES (2, L4)) /NSEG 
DZ2= (BNODES (3 ,L3) -BNODES (3 ,L4) ) /NSEG 
DO  30  1=1 , N-2 
J=I+L1 

BNODES (1 . J)=BN0DES(1 , LI) +I*DX1 
BNODES (2. J)=BN0DES(2,L1)+I*DY1 
BNODES (3, J) =BNODES (3 ,L1)*I*DZ1 
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J=I+L4 

BNODESCl ,J)=BN0DES(1 ,L4)+i*DX2 
BNODES (2 , J ) =BN0DES(2 , L4) +I*DY2 
BN ODES (3 , J ) = BN ODES (3 , L4) +I*DZ2 
30  CONTINUE 
L4 i =L4- 1 
LI 1=L1- 1 
C 

*  COMPUTE  THE  INNER  VERTICES. 

C 

DO  40  1=1, N 
J1=L41+I 
J2=L1 1+1 

DX= (BNODESCl , Jl) -BNODES ( 1 , J2) ) /MSEC 
DY= (BNODES (2 , J1 ) -BN0DES(2, J2) ) /MSEC 
DZ= (BNODES (3 , Jl ) -BNODES (3 , J2) ) /MSEG 
DO  50  J=l,M-2 
JN= J*N+ J2 

BNODESCl, JN)=BN0DES(1,J2)+J*DX 
BNODES (2 , JN) =BNODES (2 , J2) + J*DY 
BNODES (3 , JN)=BN0DES(3 , J2)+J*DZ 
50  CONTINUE 
40  CONTINUE 
M0DE=0 

CALL  KNIT(IBEDGE , NN0DE1 , ILDBEDG , N ,M , MODE) 
CALL  ATTACH (BNODES . IBEDGE , ILDBNOD , ILDBEDG) 
RETURN 
END 


A. 5  CYLIND 

SUBROUTINE  CYLINDCBNODES , IBEDGE) 

DIMENSION  BNODES (3 , *)  ,  IBEDGE (2  ,  *) 

CHARACTER* 1  IDF.IDM.IDB 
1  FORMAT(Al) 

COMMON  /80DY/NBN0DS, NBEDGS , NFACES 
C 

*  THE  FOLLOWING  STATEMENT  FUNCTIONS  ARE  FOR  USE  ON  MACHINES 

*  THAT  DON’T  HAVE  THESE  EXTENTIONS  TO  THE  INTRINSIC  FUNCTIONS 
C 

*  ENTER  CENTER  POINT  AND  ZERO  DEGREE  POINT  ON  THE  CIRCUMFERENCE 


AND  ANGLE. 


*  OF  THE  FRONT  AND  BACK  FACE, 

C 

PRINT*, ’ENTER  (X,Y,Z)  OF  THE  CENTER  POINT  OF  THE  FRONT  FACE’ 

2  CALL  EOFCLRC5) 

READ (5 , * ,END=2)ClX ,C1Y , C1Z 

PRINT*, ’ENTER  (X,Y,Z)  OF  ZERO  DEGREE  POINT  ON  THE  CIRCUMFERENCE’ 
PRINT*, ’OF  THE  FRONT  FACE’ 

3  CALL  E0FCLRC5) 

READ (5 , * ,END=3)P1X ,P1Y ,P1Z 

PRINT*, ’ENTER  (X,Y,Z)  OF  THE  CENTER  POI'T  OF  THE  BACK  FACE’ 

4  CALL  EOFCLR(S) 

READ ( 5 , * , END=4 ) C2X , C2Y , C2Z 

5  CALL  E0FCLR(5) 

PRINT*, ’ENTER  (X,Y,Z)  OF  ZERO  DEGREE  POINT  ON  THE  CIRCUMFERENCE’ 
PRINT*, ’OF  THE  BACK  FACE’ 

READ (5 , * ,END=5)P2X ,P2Y ,P2Z 
11  CALL  E0FCLRC5) 

PRINT*, ’HOW  MANY  EDGES  AROUND  THE  CIRCUMFERENCE?’ 

READ(S,*  ,END=U)NSEG 
21  CALL  EOFCLR(S) 

PRINT*, ’HOW  MANY  EDGES  ALONG  THE  LENGTH?’ 

READ (5 , * ,END=21)MSEG 

IF (NSEG . EQ . 0  .OR.  MSEC . EQ . 0) RETURN 

M=MSEG+1 

31  CALL  EOFCLR(S) 

PRINT*, ’DO  YOU  WANT  THE  CYLINDER  TO  BE  SLOTTED?’ 

READCS , 1 ,END=31)IDM 
IFCIDM.EQ. ’ Y ’ )THEN 
N=NSEG+ 1 

41  CALL  E0FCLR(5) 

PRINT*, ’INPUT  START  AND  END  ANGLES  OF  FRONT  FACE’ 

READ (5 , * ,END=41)FBGN , FEND 
51  CALL  E0FCLR(5) 

PRINT*, ’INPUT  START  AND  END  ANGLES  OF  BACK  FACE’ 

READ (5 , * ,END=51)BBGN , BEND 
ELSE 
N=NSEG 
FBGN=0 . 

FEND=360 . 

BBGN=0 . 

BEND=360 . 

ENDIF 

61  CALL  E0FCLRC5) 

PRINT*, ’CLOSE  FRONT?’ 

READ (5 , 1 ,END=61)IDF 
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71  CALL  E0FCLR(5) 

PRINT*, ’CLOSE  BACK?’ 

READ (5 , 1 ,END=71) IDB 
M0DE=0 

IFCIDB.EQ. ’Y’)MODE=MODE+l 
IFCIDM.EQ. ’N’)M0DE=M0DE+2 
IF(IDF.EQ . ’Y’)M0DE=M0DE+4 
N1=N-1 
NVERTS=N*M 
ILDBNOD=NBNODS 
NNODEl=NBNODS+l 
NBNODS=NBNODS+NVERTS 
IFCIDF.EQ. ’ Y ’ )THEN 
BNODES(l ,NN0DE1)=C1X 
BN0DES(2,NN0DE1)=C1Y 
BN0DES(3 ,NN0DE1)=C1Z 
NBNODS=NBNODS+l 
NNODEl=NNODEl+l 
ENDIF 

NODBAK=NBNODS-Nl 

C 

*  U  HAT=(Cl-C2) /MAGNITUDES  1-C2) 

C 

CALL  UNTVEC(C1X ,C1Y,C1Z,C2X ,C2Y , C2Z ,UX ,UY ,UZ) 

C 

*  PC1=P1-C1  AND  PC2=P2-C2 
C 

PC1X=P1X-C1X 

PC1Y=P1Y-C1Y 

PC1Z=P1Z-C1Z 

PC2X=P2X-C2X 

PC2Y=P2Y-C2Y 

PC2Z=P2Z-C2Z 

C 

*  V1=(P1-C1)CR0SS  U  HAT  AND  V2=(P2-C2)CR0SS  U  HAT 
C 

CALL  XPR0D(PC1X ,PC1Y ,PC1Z ,UX ,UY ,UZ ,V1X , V1Y , VIZ) 
CALL  XPR0D(PC2X ,PC2Y ,PC2Z ,UX ,UY ,UZ , V2X , V2Y , V2Z) 
IF (FEND. Eq. 360.  .AND.  FBGN . EQ . 0 . )THEN 
DQF=(FEND-FBGN)/N 
DQB=(BEND-BBGN)/N 
ELSE 

DQF=(FEND-FBGN)/N1 

DQB=(BEND-BBGN)/N1 

ENDIF 
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DO  10  1=0, N1 
QF=I*DQF+FBGN 
QB=I*DQB+BBGN 
SINQF=SIND(QF) 

SINQB=SIND(QB) 

COSQF=COSD(QF) 

COSQB=COSD(QB) 

BNODES ( 1 .NNODEl+I) =C1X+PC1X*C0SQF+V1X*SINQF 
BNODES (2 ,NN0DE1+I)=C1Y+PC1Y*C0SQF+V1Y*SINQF 
BNODES (3, NN0DE1+I)=C1Z+PC1Z*C0SQF+V1Z*SINQF 
BN0DES(1 ,N0DBAK+I)=C2X+PC2X*CQSQB+V2X*SINQB 
BN0DESC2 ,N0DBAK+I)=C2Y+PC2Y*CQSQB+V2Y*SINQB 
BNODES (3 , NODBAK+I ) =C2Z+PC2Z*CQSQB+V2Z*SINQB 
10  CONTINUE 
C 

*  COMPUTE  THE  INNER  VERTICES 

C 

DO  20  1=0, N1 

DX=(BN0DES(1 ,NQDBAK+I)-BN0DES(1 .NNODEl+I) )/MSEG 
DY= (BNODES (2 , NODBAK+I ) -BN0DES(2 , NNODEl+I) ) /MSEC 
DZ= (BNODES (3, NODBAK+I ) -BN0DESC3 .NNODEl+I) ) /MSEG 
DO  30  J=1 ,M-2 
JN=J+N+NN0DE1 

BNODES (1 , JN+I)=BN0DES(1 ,NN0DE1+I)+J*DX 
BNODES (2 , JN+I)=BN0DES(2,NN0DE1+I)+ J*DY 
BN0DES(3 , JN+I ) =BNODES (3 , NNODEl+I ) + J+DZ 
30  CONTINUE 
20  CONTINUE 

IF(IDB.EQ. *Y’ )THEN 
NBN0DS=NBN0DS+1 
BNODES (1,NBN0DS)=C2X 
BN0DES(2 ,NBN0DS)=C2Y 
BNODES ( 3 , NBNODS) =C2Z 
END  IF 

CALL  KNIT ( IBEDGE , NN0DE1 , ILDBEDG , N , M , MODE) 

CALL  ATTACH (BNODES , IBEDGE , ILDBNOD , ILDBEDG) 

RETURN 

END 


A. 6  CONE 

SUBROUTINE  CONE(BNODES , IBEDGE) 
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DIMENSION  BN0DES(3,*) ,IBEDGE(2,*) 

COMMON  /BODY/NBNODS , NBEDGS , NFACES 
C 

*  THE  FOLLOWING  STATEMENT  FUNCTIONS  ARE  FOR  USE  ON  MACHINES 

*  THAT  DON’T  HAVE  THESE  EXTENTIONS  TO  THE  INTRINSIC  FUNCTIONS 
C 

2  CALL  E0FCLR(5) 

PRINT* INPUT  (X,Y,Z)  OF  THE  POINT  OF  THE  CONE’ 

READ (5 , * ,END=2) C2X , C2Y , C2Z 

3  CALL  E0FCLRC5) 

PRINT*, ’INPUT  (X.Y.Z)  OF  THE  CENTER  POINT  OF  THE  BASE’ 

READ (5,* , END=3)C1X,C1Y,C1Z 

4  CALL  EOFCLRC5) 

PRINT*, 'INPUT  (X.Y.Z)  OF  A  POINT  ON  THE  BACK  CIRCUMFERENCE 
READ (5,*,END=4)PX,PY,PZ 

11  CALL  E0FCLR(5) 

PRINT*, ’HOW  MANY  EDGES  AROUND  THE  CIRCUMFERENCE?’ 

READ (5,* ,END=11)NSEG 
N=NSEG 

12  CALL  E0FCLR(5) 

PRINT*, ’HOW  MANY  FROM  THE  POINT  TO  THE  CIRCUMFERENCE?’ 

READ(S,*,END=12)MSEG 

IFCNSEG.EQ.O  .OR.  MSEC . EQ . 0) RETURN 

N 1=N- 1 

NP0INT=NBN0DS+1 
NN0DE1=NP0INT+1 
ILDBNOD=NBNODS 
NVERTS=N*MSEG+1 
NBNODS=NBNODS+NVERTS 
N0DBAK=NBN0DS-N1 
BN0DES(1 ,NP0INT)=C2X 
BN0DES(2 , NPOINT) =C2Y 
BN0DESC3 .NPOINT) =C2Z 
C 

*  . . COMPUTE  BACK  POINTS - 

*  U  HAT=(C1-C2) /MAGNITUDE (C1-C2) 

C 

CALL  UNTVEC(C1X , Cl Y , C1Z  , C2X , C2Y , C2Z ,UX , UY ,UZ) 

C 

*  PC1=P-C1 

c 

PC1X=PX-C1X 

PC1Y=PY-C1Y 

PC1Z=PZ-C1Z 
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c 

*  Vl=  U  HAT  CROSS  PCI 


10 

c 


c 


30 

20 


CALL  XPR0D(UX,UY,UZ,PC1X,PC1Y,PC1Z,V1X,V1Y,V1Z) 
DQ=360./N 
DO  10  1=0, N1 
Q=I*DQ 

SINQ=SIND(Q) 

COSQ=COSD(Q) 

BNODES ( 1 , NODBAK+I )=C1X+PC1X+C0SQ+V1X*SINQ 
BNODES (2 , NODBAK+I ) =C1Y+PC1Y*CQSQ+V1Y*SINQ 
BN ODES (3 ,NODBAK+I) =C1Z+PC1Z*C0SQ+V 1Z+SINQ 
CONTINUE 

- COMPUTE  INNER  VERTICES . . 

DO  20  120=0, N1 

DX= (BNODES (1,N0DBAK+I20)-BN0DES(1,NP0INT)) /MSEC 
DY= (BNODES (2, N0DBAK+I20) -BNODES (2, NPOINT)) /MSEC 
DZ= (BNODES (3, NODBAK+I20) -BNODES (3 .NPOINT)) /MSEC 
DO  30  130=0, MSEG-1 
I=NNODE1+I30*N+I20 
1301=130+1 

BNODES (1 ,I)=BN0DES(1 ,  NPOINT) +1301 *DX 
BNODES (2, I )=BNODES (2, NPOINT) +1301 *DY 
BNODES (3 ,I)=BNODES(3,NPOINT)+I301»DZ 
CONTINUE 
CONTINUE 
M0DE=6 


*  ADJUST  THE  M  DIMENSION  SO  THAT  THE  BODY  LOOKS  LIKE  A  CYLINDER 
»  WHEN  CALLING  KNIT 

C 

CALL  KNIT(IBEDGE,NN0DE1 ,ILDBEDG,N, MSEC, MODE) 

CALL  ATTACH (BNODES  ,  IBEDGE , ILCBNOD , ILDBEDG) 

RETURN 

END 


A. 7  DISK 

SUBROUTINE  DISK(BN0DES , IBEDGE) 
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DIMENSION  BN0DES(3 , *)  , IBEDGE(2 , *) 

COMMON  /BODY/NBNODS , NBEDGS , NFACES 
C 

*  THE  FOLLOWING  STATEMENT  FUNCTIONS  ARE  FOR  USE  ON  MACHINES 

*  THAT  DON’T  HAVE  THESE  EXTENTIONS  TO  THE  INTRINSIC  FUNCTIONS 
C 

2  CALL  EOFCLR(5) 

PRINT*, ’INPUT  (X , Y , 2)  OF  THE  CENTER  POINT  OF  THE  DISK’ 

READ (5 ,*,END=2)C1X,C1Y,C1Z 

3  CALL  E0FCLRC5) 

PRINT*, 'INPUT  (X.Y.Z)  OF  A  POINT  ON  THE  CIRCUMFERENCE’ 

READ (5 ,*,END=3)PX,PY,PZ 

4  CALL  EOFCLR(S) 

PRINT* ,’ INPUT  (X.Y.Z)  OF  A  POINT  PERPENDICULAR  TO’ 

PRINT*, ’THE  CENTER  OF  THE  DISK’ 

READ (5 , * , END=4) C2X , C2Y , C2Z 
::  CALL  EOFCLR(S) 

PRINT*, ’HOW  MANY  EDGES  AROUND  THE  CIRCUMFERENCE?’ 

READ (S , * , END= 1 1 ) NSEG 
N=NSEG 

12  CALL  E0FCLR(5) 

PRINT*, ’HOW  MANY  EDGES  FROM'  THE  CENTER  TO  THE  CIRCUMFERENCE?’ 

READ(5 , * ,END=12)MSEG 

IF (NSEG. EQ .0  .OR.  MSEG .Eq .0) RETURN 

N1=N-1 

NPOINT=NBNODS+1 
NN0DE1=NP0INT+1 
ILDBNOD=NBNODS 
NVERTS=N*MSEG+1 
NBNODS=NBNODS+NVERTS 
NODBAK=NBNODS-N 1 
BNODESCl ,NP0INT)=C1X 
BNODES (2 , NP0INT)=C1Y 
BN0DESC3 ,NP0INT)=C1Z 
C 

*  - COMPUTE  OUTER  POINTS - 

*  U  HAT=(Ci-C2) /MAGNITUDE (Cl -C2) 

C 

CALL  UNTVEC(C1X , C1Y ,C1Z ,C2X ,C2Y ,C2Z,UX ,UY ,UZ) 

C 

*  PC1=P-C1 
C 

PC1X=PX-C1X 

PC1Y=PY-C1Y 

PC1Z=PZ-C1Z 
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c 

*  Vl=  U  HAT  CROSS  PCI 

c 

CALL  XPROD(UX ,UY,UZ,PC1X,PC1Y,PC1Z,V1X,V1Y,V1Z) 
DQ=360./N 
DO  10  1=0, N1 
Q=I*DQ 

SINQ=SIND(Q) 

COSq=COSD(Q) 

BNODES ( 1 .NODBAK+I ) =C1X+PC1X*C0SQ+V1X*SINQ 
BNODES (2, NODBAK+I )=C1Y+PC1Y*C0SQ+V1Y*SINQ 
BNODES (3, NODBAK+I ) =C 1Z+PC1Z+C0SQ+V 1Z+SINQ 
10  CONTINUE 


C 


30 

20 


- COMPUTE  INNER  VERTICES . . — 

DO  20  1=0 , N1 

DX= (BNODES (1, NODBAK+I) -BNODES ( 1 .NPOINT) )/MSEG 
DY= (BNODES (2. NODBAK+I) -BNODES (2, NPOINT)) /MSEC 
D2= (BNODES (3, NODBAK+I ) -BNODES (3, NPOI NT) )/MSEG 
DO  30  J=0 .MSEG-l 
INDEX=NN0DE1+ J+N+I 
J1=J+1 

BNODESC 1 , INDEX) =BN ODES (1 ,NP0INT)+J1*DX 
BNODES (2, INDEX )=BNODES (2, NPOINT) +J1*DY 
BN0DES(3, INDEX) =BNODES (3, NPOINT) +J1+DZ 
CONTINUE 
CONTINUE 
M0DE=6 


«  ADJUST  THE  M  DIMENSION  30  THAT  THE  BODY  LOOKS  LIKE  A  CYLINDER 
*  WHEN  CALLING  KNIT 
C 

CALL  KNITUBEDGE.NNODEl  .ILDBEDG.N  .MSEC, MODE) 

CALL  ATTACH(BNODES , IBEDGE , ILDBNOD . ILDBEDG) 

RETURN 

END 


A. 8  SPHERE 

SUBROUTINE  SPHERE(BNODES , IBEDGE) 
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1 


DIMENSION  BN0DES(3 , *) , IBEDGE(2  ,  *)  ,FLEX(30) 

CHARACTER*  1  ID 
FORMAT(Al) 

COMMON  /BODY/NBNODS , NBEDGS , NFACES 
C 

*  THE  FOLLOWING  STATEMENT  FUNCTIONS  ARE  FOR  USE  ON  MACHINES 

*  THAT  DON'T  HAVE  THESE  EXTENTIONS  TO  THE  INTRINSIC  FUNCTIONS 

100  CALL  E0FCLR(5) 

PRINT*, 'INPUT  (X , Y , 2)  OF  THE  CENTER  POINT’ 

READ (5, *,END= 100) CX, CY.CZ 
11  CALL  EOFCLR(S) 

PRINT*, 'INPUT  THE  RADIUS’ 

READ (5,* ,END=11)R 

2  CALL  E0FCLR(5) 

PRINT*, 'INPUT  (X.Y.Z)  OF  A  POINT  IN  THE  NORTH  POLE  DIRECTION’ 
READ (5 , * ,£ND=2)PX , PY ,PZ 

3  CALL  EOFCLR(S) 

PRINT*, ’INPUT  (X , Y , Z)  OF  A  POINT  IN  THE  EQUATORIAL’ 

PRINT*, '(0  DEGREES)  DIRECTION’ 

READ(S,*,END=3)EX,t! ,EZ 

r> 

*  MAKE  POLE  AND  EQUATOR  DIRECTIONAL  POINTS  INTO  UNIT  VECTORS 

CALL  UNTVEC (PX , PY , PZ , CX , CY ,CZ ,U1X ,UlY ,U1Z) 

CALL  UNTVEC CEX , EY , EZ , CX , CY , CZ , U2X ,U2Y , U2Z) 

*  VERIFY  THAT  THEY  ARE  AT  RIGHT  ANGLES 

C 

IF(ABS(U1X*U2X+U1Y*U2Y+U1Z*U2Z) . GT . 1E-8)THEN 

PRINT*, ’YOUR  CENTER,  POLE,  AND  EQUATORIAL  POINTS’ 

PRINT* , ’DON  ”T  FORM  A  RIGHT  ANGLE.  PLEASE  TRY  AGAIN.’ 

GOTO  100 
ENDIF 

r 

*  FIND  THE  UNIT  VECTOR  THAT  IS  U1  CROSS  U2 
C 

CALL  XPROD (U IX ,U1 Y ,U1Z ,U2X  ,U2Y ,U2Z ,U3X ,U3Y , U2Z) 

C 

*  THE  POLE  AND  EQUATOR  POINTS  ARE  THE  RADIUS  TIMES  THE  UNIT  VECTORS 
C 

R1X=U1X*R 

R1Y=U1Y*R 

R1Z=U1Z*R 

R2X=U2X*R 
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R2Y=U2Y*R 

R2Z=U2Z*R 

R3X=U3X*R 

R3Y=U3Y*R 

R3Z=U3Z*R 

C 

*  FIND  THE  START  AND  FINISH  ANGLES  CF  THE  LONGITUDE  AND  LATITUDE. 
C 

12  CALL  EOFCLR(5) 

PRINT* , ’INPUT  THE  START  AND  FINISH  ANGLES  OF  THE  LONGITUDE’ 
READ(S , * ,END=12)BGNL0N .ENDLON 

13  CALL  E0FCLR(5) 

PRINT*, ’HOW  MANY  EDGES  DOWN  THE  LONGITUDE?’ 

READ (5 , * , END=13) NSEG 

14  CALL  E0FCLR(5) 

PRINT*, ’INPUT  THE  START  AND  FINISH  ANGLES  OF  THE  LATITUDE’ 
READ ( 5 , * , END= 14) BGNLAT , ENDLAT 

15  CALL  EOFCLRCS) 

PRINT*, ’HOW  MANY  EDGES  AROUND  THE  LATITUDE? ’ 

READ (5 , * , END=15)MSEG 

IF (NSEG . EQ . 0  -OR.  MSEC . EQ . 0) RETURN 

M0DE=O 

IFCENDLON .EQ . 180. )M0DE=M0DE+1 

IF (BGNLAT . EQ . 0 .  .AND.  ENDLAT . EQ . 360 .) M0DE=M0DE+2 
IFCBGNLON .EQ .0. )M0DE=M0DE+4 
NLONPT=NSEG+  1 

IF (MODE . EQ . 0 . OR . MODE . EQ . 1 . OR . MODE . EQ . 4 . OR  MODE . EQ . 5) THEN 
NLATPT=MSEG+ 1 
ELSE 

NLATPT=MSEG 

ENDIF 

IF (MODE . EQ . 0  .OR.  MODE . EQ . 2)THEN 
M=NLONPT 

ELSEIF(MODE . EQ . 5  .OR.  MODE . EQ . 7)TH£N 
M=NL0NPT-2 
ELSE 

M=NLONPT- 1 
ENDIF 

N 1=NLATPT- 1 

NVERTS=NLATPT*M 

ILDBNOD=NBNODS 

NNQDE1=NBN0DS+1 

NBNODS=NBNQDS+N VERTS 

SUMFLEX=REAL(NSEG) 

DO  30  1=1 .NLONPT 
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FLEX ( I )  =  1 . 

30  CONTINUE 
16  CALL  EOFCLR(S) 

PRINT*,’ DO  YOU  WANT  UNIFORM  LONGITUDINAL  SEGMENT  LENGTHS?’ 

READ (5, 1 ,END=16)ID 
IFCID.EQ. ’ N ’ )THEN 

40  PRINT*, ’ENTER  THE  SEGMENT  NUMBER  AND  THE  PROPORTION  <0  0.>=DONE’ 
READ ( S , * , END=50 ) NUMBER , VALUE 
IF (NUMBER. NE.O) THEN 

SUMFLEX=SUMFLEX- FLEX (NUMBER)* VALUE 
FLEX ( NUMBER) =VALUE 
GOTO  40 
ENDIF 

SO  CALL  E0FCLR(5) 

ENDIF 

IF (BGNLON . EQ . 0)THEN 
BNODESU  ,NN0DE1)=R1X 
BN0DES(2,NN0DE1)=R-.Y 
BN ODES (3 ,NNODEl)=Ri7 
NBN0DS=NBN0DS+1 
NN0DE1=NN0DE1+ 1 
ENDIF 

DTHETA=ENDLON -BGNLON 

IF(BGNLAT . EQ . 0 .  .AND.  ENDLAT . EQ . 360 . )THEN 
DPSI=360 . /NLATPT 
ELSE 

DPSI= (ENDLAT-BGNLAT) /N 1 
ENDIF 

N0DE=NN0DE1 

THETA=BGNLON 

DO  10  L0NGTU=1 .NLONPT 

IF(ANINT(THETA) .NE.O.  .AND.  ANINT(THETA) . NE . 180 . )THEN 

SINQ=SIND (THETA) 

COSQ=COSD (THETA) 

DO  20  LATITU=0 ,N1 

PSI=LATITU*DPSI+BGNLAT 

SINPSI=SIND(PSI) 

COSPSI=COSD(PSI) 

BN0DES(1 ,N0DE)=R1X*C0SQ+R2X*SINQ*C0SPSI+R3X*SINQ*SINPSI 
BN0DES(2 ,N0DE)=R1Y*C0SQ+R2Y*SINQ*C0SPSI+R3Y*SINQ*SINPSI 
BN0DES(3 .NODE) =R1Z*C0SQ+R2Z*SINQ*C0SPSI+R3Z*SINQ+SINPSI 
N0DE=N0DE+1 
20  CONTINUE 

ENDIF 

THETA=THETA+DTHETA*FLEX (LONGTU) /SUMFLEX 
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o  o 


10  CONTINUE 

IF (ENDLON . EQ . 180 . )THEN 
NBN0DS=NBN0DS+1 
R4X=CX- (R1X-CX) 

R4Y=CY- (R1Y-CY) 

R4Z=C2- (R1Z-CZ) 

BNODES ( 1 , NBNODS) =R4X 
BN ODES (2 , NBNODS) =R4Y 
BN0DES(3 ,NBN0DS)=R4Z 
END  IF 

CALL  KNIT( IBEDGE , NN0DE1 , ILDBEDG , NLATPT , M , MODE) 
CALL  ATTACH (BNODES . IBEDGE , ILDBNOD , ILDBEDG) 
RETURN 
END 


A. 9  KNIT 

SUBROUTINE  KNIT( IBEDGE .NNODEl , ILDBEDG , N ,M .MODE) 


*  ALL  BODIES  IN  THIS  PROGRAM  CAN  BE  DESCRIBED  BYQD 

«  1)  AN  OPTIONAL  FRONT  POINT 

*  2)  AN  NXM  BODY  EITHER  OPEN  OR  CLOSED 

*  3)  AN  OPTIONAL  BACK  POINT 

* 

*  INPUTfiD 

*  IBEDGE=ARRAY  OF  EDGES  THAT  EXIST  SO  FAR. 

»  NN0DE1=NUMBER  OF  THE  FIRST  NODE  OF  THE  NXM  BODY  OF  THIS  NEW  BODY. 

*  N=ONE  DIMENSION  OF  THE  BODY. 

*  M=THE  OTHER  DIMENSION  OF  THE  BODY. 

*  MODE=THE  TYPE  OF  BODY 

*  FRONT  NXM  BODY  BACK  EXAMPLE 

*  MQDE=0  000  QUADRANGLE,  SLOTTED  CYLINDER(OPEN  ENDS) 

«  M0DE=1  0  0  1  SLOTTED  CYLINDER  W/CLOSED  BACK 

»  M0DE=2  0  1  0  CYLINDER  W/OPEN  ENDS,  SPHERE  W/0  POLES 

*  M0DE=3  0  1  1  CYLINDER  W/OPEN  FRONT,  SPHERE  W/0  N  POLE 

*  M0DE=4  1  0  0  SLOTTED  CYLINDER  W/CLOSED  FRONT 

*  MODE=S  1  0  1  SLOTTED  SPHERE 

*  M0DE=6  1  1  0  CYLINDER  W/  OPEN  BACK,  DISK,  CONE 

*  M0DE=7  1  1  1  CYLINDER  W/  CLOSED  ENDS,  SOLID  SPHERE 

* 

*  QUTPUTQD 


G3 


*  IBEDCE=ARRAY  WITH  ALL  EDGES. 

*  NBEDGS=NUMBER  OF  ALL  EDGES. 

*  ILDBEDG=LAST  EDGE  OF  LAST  BODY. 

C 

DIMENSION  IBEDGEC2,*) 

COMMON  /BODY/NBNODS , NBEDGS , NFACES 

C 

NXEDGE=NBEDGS+1 

ILDBEDG=NBEDGS 

C 

*  COMPUTE  EDGE  CONNECTIONS. 

*  IF  BACK  IS  CLOSED,  THEN... 

C 

IF (MODE . Eq . 1 . OR . MODE . EQ . 3 . OR . MODE . EQ . S . OR . MODE . EQ . 7)THEN 
LASNOD=NBNODS- 1 
ELSE 

LASNOD=NBNODS 

ENDIF 

C 

*  IF  FRONT  IS  CLOSED,  THEN  ADD  EDGES  FROM  FRONT  POINT  TO  NXM  BODY. 
C 

IF (MODE . GE . 4) THEN 
NEEDGS=NBEDGS+N 
FRSNOD=NNODE1 - 1 
DO  20  1=0, N-l 

IBEDGE( 1 , NXEDGE) =FRSNOD 
IBEDGE(2 , NXEDGE) =NNODEl+ I 
NXEDGE=NXEDGE+1 
20  CONTINUE 
ENDIF 

DO  SOI  K=0  , M-2 
J=K*N+NNQDE1 
C 

*  GO  ACROSS  THE  N  DIMENSION. 

C 

DO  5001  1=0, N-2 

IBEDGE(1,NXEDGE)=I>J 
IBEDGE(2, NXEDGE) =I+J+1 
NXEDGE=NXEDGE+1 
5001  CONTTV"E 
C 

*  IF  THE  BODY  IS  CLOSED,  THEN  ATTACH  LAST  TO  FIRST. 

C 

IF (MODE . EQ . 2 . OR . MODE . EQ . 3 . OR . MODE . EQ  6 . OR . MODE . EQ . 7 )THEN 
IBEDGE( 1 , NXEDGE) =J+N-1 
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IBEDGE(2 , NXEDGE) =J 
NXEDGE=NXEDGE+ 1 
ENDIF 

C 

*  GO  ACROSS  THE  MIDDLE. 

C 

DO  6001  1=0, N-2 

I3EDGEC 1 , NXEDGE) =T+  J 
IBEDGE (2, NXEDGE) =I+J+N 
NXEDGE=NXEDGE+ 1 
IBEDGECl  ,NXEDGE)=I+J 
IBEDGE (2  , NXEDGE)  =- 1 T  +  N+l 
NXEDGE=NXEDGE+ 1 
6001  CONTINUE 

C 

*  CLOSE  THE  MIDDLE 

C 

I SEDGE (1 , NXEDGE) =J+N~ 1 
IBEDCE(2,nXEuGE)=J+N-l+N 
NXEDGE=NXEDGE+ 1 

-  IF  THE  BODY  IS  CLOSED,  THEN  CLOSE  LAST  SLANT. 

IFCM0DE.EQ.2.0R. MODE . EQ . 3 . OR . MODE . EQ  .  6 . OR . MODE . EQ .7)THEN 
IBEDGECl ,NXEDGE)=J+N-1 
IBEDGE  ^ 2 , NXEDGE) =J+N 
NXEDGE=NXEDGE+ 1 
ENDIF 

501  CONTINUE 

C 

«  CLOSE  THE  BOTTOM. 

C 

DO  41  I=LASN0D-N+1 .LASNOD-l 
IBEDGECl, NXEDGE) =1 
I HEDGE (2 , NXEDGE) =1 + 1 
NXEDGE=NXEDGE+ 1 
41  CONTINUE 

»  IF  BODY  CLOSED,  THEN  ClOSE  LAST  TO  FIRST. 

C 

IF (MODE . EQ . 2 . OR .MODE . EQ . 3 . OR . MODE . EQ . 6 . OR . MODE . EQ . 7)THEN 
IBEDGECl  ,NXELGE)=LASNOD 
IBEDGE (2, NXEDGE) =LASN0D-N+1 
NXEDGE=NXEDGE+1 

ENDIF 
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T 


-  IF  BACK  IS  CLOSED,  THE  CONNECT  LAST  ROW  TO  BACK  POINT. 

IF  CMODE  .  EQ  .  1  .  OR  .  MODE  .  EQ  .  3  .  OR  .  MODE  .  EQ  .  5  .  OR  .  MODE  .  EQ  .  7; THEN 
NBEDGS=NBEDGS+N 
DO  21  1=0, N-l 

IBEDGEU ,NXEDGE)=NBNODS 
IBEDGE(2,NXEDGE)=NBN0DS-N+I 
NXEDGE=NXEDGE+ 1 
CONTINUE 
END  IF 

N5EDGS=NXEDGE-1 
RETURN 


A.  10  ATTACH 


SUBROUTINE  ATTACH (5NCDES , IBEDGE , ILDBNCD , ILDBEBC) 


DIMENSION  BNCDES (3  ,  * ) , IEEDGEC2 , * ) 

COMMON  /BCDY/NBNOBS , N3EDGS , NFACES 
COMMON  /SPACE/SPACE 

*  THE  FCLCWING  LINE  IS  A  STATEMENT  FUNCTION 

ZIZECX.Y ,Z)=SQRT(X*X+Y*Y+Z*Z' 

*  FIND  A  COMMON  NODE. 

DO  10  ILDPTR=1 , ILDBNOD 

DO  20  NEWPTR=ILDBNOD+ 1 , NBNODS 
XILD  =  BNODES  ( 1  ,  II.DPTR  ■ 

YILD=BN0DES(2 , ILDPTR) 

ZILD=BNQDES(3 , ILDPTR) 

XNEW=BN0DE3 ( 1 , NEWPTR ’ 

YNEW=BNODES ( 2 , NEWPTR ' 

ZN£W=BNOD£S (3  ,  NEWPTR.) 

*  IF  IT  IS  A  COMMON  NODE. . . 

IF(SIZE(XILD-XNEW,YILD-YNEW,ZI!  D-ZNEW) . LE . SPACE) THEN 
NBNODC  =  NBN0DS - 1 


GG 


c 


«  LOOP  THROUGH  ALL  THE  EDGES 

DO  SO  I=ILDBEDG+1 .NBEDGS 
C 

*  AND  CHANGE  ANY  THAT  HAVE  THE  NEWEST  NODE  TO  THE  OLDER  NODE 

C 

IF(IBEDGE(1 ,1) . EQ . NEWPTR)THEN 
IBEDGECl , I)=ILDPTR 
ELSEIF (IBEDGE(2 , I ) . EQ . NEWPTR)THEN 
IBEDGE(2 , I ) =ILDPTR 
ENDIF 
C 

*  AND  DECREASE  ANY  WITH  BIGGER  NODE  NUMBERS  BY  ONE. 

C 

IF ( IBEDGE ( 1 , I) • GT . NEWPTR) IBEDGE ( 1 , I ) = I BEDGE ( 1 , I ) - 1 
IF ( IBEDGE (2 , I ) . GT . NEWPTR) IBEDGE (2,1 )= IBEDGE (2 , I ) - 1 
50  CONTINUE 

«  DECREASE  BIGGER  NODE  NUMBERS  BY  ONE. 

c 

DC  60  I=NEWPTR , NBNODS 

BNODESC 1 , I ) =BNODES (1,1+1) 

BN ODES (2 , 1 ) =BN0DES(2 , 1  +  1 ) 

BN0DES(3,I) =B NODES (3 , I + 1 ) 
e:  CONTINUE 

GOTO  10 
ENDIF 

20  CONTINUE 
1C  CONTINUE 
C 

*  FIND  A  COMMON  EDGE 

r> 

u 

DO  30  ILDPTR=1 .ILDBEDG 

DO  40  NEWPTR-ILDBEDG+1 .NBEDGS 

c 

*  IF  IT  IS  A  COMMON  EDGE 

C 

I 1=IBEDGE( 1 , ILDPTR) 

I2=IBEDGE(2 , ILDPTR) 

Nl=IBEDGE(l, NEWPTR) 

N2=IBEDGE(2, NEWPTR) 

IF ((II .EQ ,N1 . AND . I2.EQ.N2) .OR. (II . EQ  .  N2 . AND . 12 . EQ . N 1 ) )THEN 
r 

*  THEN  DELETE  THE  NEW  EDGE  BY  DECREASING  THE  REMAINING  EDGE  NUMBERS 


GT 


NBEDGS=NBEDGS-1 
DO  35  I =NEWPTR .NBEDGS 

IBEDGE  C 1 , 1 ) =IBEDGE (1,1  +  1) 
IBEDGE (2,1) =IBEDGE ( 2 , 1+1) 
35  CONTINUE 

GOTO  30 
ENDIF 

40  CONTINUE 
30  CONTINUE 
RETURN 
END 


A.  11  QUERY 

SUBROUTINE  QUERY (BNODES , IBEDGE , IFACES , ITRAK) 

DIMENSION  BNODES (3,*) ,I8EDGE(2,*) , IFACES (3,*) , ITRAK (*) 
CHARACTER* 1  ID 
1  FORMAT (A  1) 

COMMON  /BODY/NBNODS, NBEDGS, NFACES 
C 

ITIME=0 

100  CALL  E0FCLR(5) 

PRINT* , ’INFORMATION  ON  A  NODE,  EDGE,  OR  FACE?’ 

PRINT*, ’INPUT  "N"  OR  "E"  OR  "F"  OR  "Q” ’ 

READ (5 ,1 ,END=100)ID 
IF(ID.EQ. ’ N ’ )THEN 
12  CALL  E0FCLR(5) 

PRINT* , ’ENTER  NODE  NUMEER’ 

READ (5,* ,END=12)ND 
IF(ND . LE . NBNODS)THEN 
X=BN0DES(1  ,ND) 

Y=BN0DES(2,ND) 

Z=BN0DES(3,ND) 

PRINT* , ’ NODE  ’  , ND  ,  ’  IS  AT  ( '  ,  X  ,  ’ , ’  , Y , ' , ’ , Z , ' ) ’ 

DO  10  IPQINT=1, NBEDGS 

IF ( IBEDGE (1 , IPO I NT) .EQ .ND  .OR.  IBEDGE (2 .IPOINT) .EQ.ND) 
>  PRINT*, ’EDGE  ’, IPOINT,’  IS  CONNECTED  TO  IT’ 

10  CONTINUE 

ELSE 

PRINT*, ’NODE  ’ , ND ,  ’  DOES  NOT  EXIST.’ 
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ENDIF 

ELSEIFCID.EQ. ’E’)THEN 
11  CALL  E0FCLRC5) 

PRINT*, ’ENTER  EDGE  NUMBER’ 

READ ( 5 , * , END= 1 1 ) IEN 
IF(IEN . LE . NBEDGS)THEN 
I FROM=IBEDGE ( 1 , IEN ) 

IT0=IBEDGE(2 , IEN) 

PRINT*, ’EDGE  ’.IEN,’  GOES  FROM  NODE  ’ , IFROM , ’  TO  NODE  ’,ITO 
ELSE 

PRINT*, ’EDGE  ’.IEN,’  DOES  NOT  EXIST.’ 

ENDIF 

ELSEIFCID.EQ . ’ F 1 )THEN 
13  CALL  E0FCLRC5) 

PRINT* , ’ENTER  FACE  NUMBER' 

READ (5 , * ,END=13) IFAC 
IF (IFAC . LE . NFACES)THEN 
ITIME=ITIME+ 1 

IFCITIME.EQ. 1)CALL  FAEMUL ( IBEDGE , IFACES , ITRAK , 2) 

IONE= I F ACES (1 , 1  FAC) 

ITW0=IFACES(2 .IFAC) 

ITHREE=IFACES (3 , 1  FAC ) 

PRINT*, ’FACE  ’.IFAC,’  HAS  EDGES  ’ , TONE , ITWO , ITHREE 
ELSE 

PRINT*, ’FACE  ’.IFAC,’  DOES  NOT  EXIST  ’ 

ENDIF 

El  SEIF (ID  EQ.  ’ Q ’ )THEN 
RETURN 
ENDIF 
GOTO  100 
END 


A. 12  CHANGE 


SUBROUTINE  CHANGECBNODES , IBEDGE) 

DIMENSION  BNODES (3 , *) , IBEDGEC2  ,  *) 
CHARACTER* 1  ID 
1  FORMAT(Al) 

COMMON  /BODY/NBNODS . NBEDGS , NFACES 
100  CALL  E0FCLRC5) 
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PRINT*, ’DO  YOU  WANT  TO  ADD,  DELETE,  OR  MOVE’ 

PRINT*, ’INPUT  "A",  "D",  "M" ,  OR  "Q”’ 

READ (5 , 1 ,END=100) ID 
IFCID.EQ. ’ A ’ )THEN 
200  CALL  EOFCLRCS) 

PRINT*,’ DO  YOU  WISH  TO  ADD  A  NODE  OR  INSERT  EDGE?’ 
PRINT*, ’INPUT  "N",  "E",  OR  "Q"’ 

READ (5 , 1 ,END=200) ID 
IFCID.EQ. ’ N ’ )THEN 
NBN0DS=NBN0DS+1 

11  CALL  EOFCLR(S) 

PRINT*, 'INPUT  (X , Y , Z)  FOR  NODE  ’ .NBNODS 
READ ( 5 , * , END= 1 1 ) X , Y , Z 
BNODESCl ,NBNODS)=X 
BNODES (2 , NBNODS) =Y 
BN ODES (3 , NBNODS) =Z 
ELSEIFCID.EQ. ’ E ’ )THEN 

12  CALL  EOFCLR(S) 

PRINT* , ’INPUT  EDGE  NUMBER  AND  “FROM"  AND  “TO"  NODES’ 
READ (5 , * , END=12) I EDGE , IFRQM , ITO 
NBEDGS=NBEDGS+ 1 
DO  SO  I  =  NBEDGS , IEDGE+ 1 ,  - 1 
IBEDGEC 1,1) =IBEDGE(  1,1-1) 

IBEDGEC2 ,I)  =  IBEDGE(2 ,1-1) 

50  CONTINUE 

IBEDGEC 1 , IEDGE) =IFROM 
IBEDGEC 2 , I EDGE )= ITO 
ELSEIFCID.EQ. ' Q ’ )THEN 
GOTO  999 
ELSE 

GOTO  200 
ENDIF 

ELSEIFCID.EQ. ’D’)THEN 
300  CALL  E0FCLRC5) 

PRINT*, 'DELETE  NODES  OR  EDGES?’ 

PRINT* , ’ INPUT  "N",  "E”,  OR  ”Q“’ 

READC5, 1 ,END=300)ID 
IFCID.EQ. ’ N ’ )THEN 

13  CALL  E0FCLRC5) 

PRINT*, ’INPUT  RANGE  OF  NODE  NUMBERS’ 

READ C 5 ,* ,END=13)ND1 ,ND2 
DO  60  ND=ND2 , ND1 , - 1 
IFCND . LE . NBNODS) THEN 
NBNODS=NBNODS- 1 
DO  20  I=ND, NBNODS 
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BN0DES(1,I)=BN0DES( 1,1+1) 
BN0DES(2,I)=BN0DES(2,I+l) 

BN ODES (3 ,I)=BNODES (3,1+1) 

20  CONTINUE 

ISTART=1 
KILLED=0 

400  DO  30  I=ISTART, NBEDGS 

IF(IBEDGE( 1 , I+KILLED) .EQ.ND 
>  . OR. IBEDGEC2, I+KILLED) .EQ.ND)THEN 

KILLED=KILLED+1 
HPFn^.<;=MRFDG^-l 
ISTART=I 
GOTO  400 
ENDIF 

IBEDGEC 1 , I ) =IBEDGE( 1 , I+KILLED) 

IBEDGEC2, I) =IBEDGE(2, I+KILLED) 

30  CONTINUE 

DO  40  1  =  1  .NBEDGS 

IF (IBEDGEC 1,1) . GT . ND) IBEDGEC 1 , I )=IBEDGE( 1 , I) -1 
IF( IBEDGEC2 , I ) . GT . ND) IBEDGEC2 , I ) =IBEDGE(2 , I) - 1 
40  CONTINUE 

ELSE 

PRINT*, ’NODE  ’ , ND ,  ’  DOES  NOT  EXIST’ 

ENDIF 

60  CONTINUE 

ELSEIF (ID . EQ . ’E’)THEN 

14  CALL  E0FCLRC5) 

PRINT* ,’ INPUT  EDGE  NUMBER’ 

READ (5 , * ,END= 14) IEN 
IF(IEN . LE . NBEDGS) THEN 
NBEDGS=NBEDGS- 1 
DO  10  I=IEN, NBEDGS 

IBEDGEC 1 ,I)=IBEDGE(1 ,1+1) 

IBEDGEC 2 , 1)  =  IBEDGE(2 , 1  + 1 ) 

10  CONTINUE 

ELSE 

PRINT*, ’EDGE  ’,IEN,’  DOES  NOT  EXIST’ 

ENDIF 

ELSEIFC ID . EQ . ’ Q ’ )THEN 
GOTO  999 
ELSE 

GOTO  300 
ENDIF 

ELSEIF ( ID . EQ . ’M’)THEN 

15  CALL  EOFCLRCS) 
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PRINT*, ’WHICH  NODE?’ 

READ (5 , * ,END=15)ND 
IF (ND . LE . NBNODS)THEN 
X=BNODES(l ,ND) 

Y=BNODES(2 ,ND) 

Z=BN0DES(3 ,ND) 

16  CALL  E0FCLR(5) 

PRINT*, ’NODE  ’ ,ND , ’  IS  AT  ( ’ , X , ’ , 1 , Y , ' , ’ , Z ,  ’ )  ’ 

PRINT*, 'DO  YOU  WANT  TO  ENTER  (X,Y,Z)  OR  NODE  NUMBER?’ 
PRINT* , ’ENTER  "X"  OR  "N"’ 

READ (5 , 1 ,END=16) ID 
IF(ID.EQ. ’ X ’ )THEN 
2  CALL  E0FCLR(5) 

PRINT*, ’INPUT  NEW  (X,Y,Z)’ 

READ (5 , * ,END=2) X , Y  ,  Z 
BNODES ( 1 , ND) =X 
BN0DES(2,ND)=Y 
BN0DES(3 ,ND)=Z 
ELSE 

17  CALL  E0FCLR(5) 

PRINT*, ’INPUT  NODE  NUMBER’ 

READ (5 , * ,END=17)NDQLD 
BNODES ( 1 ,ND)=BNODES( 1 , NDOLD) 

BN ODES (2 , ND) =BNODES (2 , NDOLD) 

BNODES (3 ,ND)=BN0DES (3, NDOLD) 

ENDIF 

ELSE 

PRINT*, ’NODE  ’  ,  ND  ,  ’  DOES  NOT  EXIST' 

ENDIF 

ELSEIFC ID . EQ . 'Q ' )THEN 
GOTO  999 
ENDIF 
GOTO  100 
999  CONTINUE 

CALL  PACK IT (BNODES , IBEDGE) 

RETURN 

END 


A. 13  PACKIT 

SUBROUTINE  PACKIT(BNODES , IBEDGE) 


DIMENSION  BN0DESC3,*) ,IB£DGE(2,*) 

COMMON  /BODY/NBNODS , NBEDGS , NFACES 
COMMON  /SPACE/SPACE 
C 

*  THE  FOLLOWING  LINE  IS  A  STATEMENT  FUNCTION. 

C 

SIZE(X,Y,Z)=SQRT(X*X+Y*Y+Z*Z) 

C 

*  FIND  A  COMMON  NODE. 

C 

DO  10  ILDPTR=1 .NBNODS-l 

DO  20  NEWPTR=ILDPTR+1 .NBNQDS 
XILD=BN0DES(1 , ILDPTR) 

YILD=BN0DES(2 , ILDPTR) 

ZILD=BN0DES(3, ILDPTR) 

XNEW=BNODES( 1 .NEWPTR) 

YNEW=BNQDES(2 .NEWPTR) 

ZNEW=BN0DES(3, NEWPTR) 

»  IF  IT  IS  A  COMMON  NODE. . . 

IF (SIZECXILD-XNEW , YILD-YNEW, ZILD-ZNEW) . LE . SPACE) THEN 
NBNODS=NBNDDS- 1 
C 

*  LOO?  THROUGH  ALL  THE  EDGES 

DO  SO  1=1, NBEDGS 
C 

*  AND  CHANGE  ANY  THAT  HAVE  THE  NEWEST  NODE  TO  THE  OLDER  NODE 
C 

IF(IBEDGECl.I) . EQ . NEWPTR) THEN 
IBEDGEC 1 , I ) =ILDPTR 
ELSEIF (IBEDGE(2 , I ) . EQ . NEWPTR) THEN 
IBEDGEC 2 , I )= ILDPTR 
ENDIF 
C 

*  AND  DECREASE  ANY  WITH  BIGGER  NODE  NUMBERS  BY  ONE. 

C 

IF (IBEDGEC 1,1) .GT. NEWPTR) IBEDGEC i ,I)=IBEDCE(1 , I) -1 
IFCIBEDGEC2 , 1 ) . GT . NEWPTR) IBEDGEC2 , 1 ) =IBEDGE (2 , 1 ) - 1 
50  CONTINUE 

C 

»  DECREASE  BIGGER  NODE  NUMBERS  BY  ONE. 

C 

DO  60  I=NEWFTR , NBNODS 
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BN0DES(1 , I)=BNODES(l ,1+1) 

BN0DES(2,I)=BN0DES(2,I+i) 

BN0DES(3,I)=BN0D£S(3,I+1) 

60  CONTINUE 

GOTO  10 
ENDIF 

20  CONTINUE 
10  CONTINUE 

C 

*  FIND  A  COMMON  EDGE 

C 

DO  30  ILDPTR=1 , NBEDGS- 1 

DO  40  NEWPTR=ILDPTR+1  .NBEDGS 

C 

*  IF  IT  IS  A  COMMON  EDGE 

C 

I F ( (IBEDGE( 1 , ILDPTR) . EQ . IBEDGE ( 1 , NEWPTR) . AND . IBEDGE (2 , ILDPTR) . 
>EQ . IBEDGEC2 , NEWPTR) ) . OR . ( IBEDGE ( 1 , ILDPTR) . EQ . IBEDGE(2 , NEWPTR) . AND . 
>IBEDGE(2, ILDPTR) . EQ . IBEDGE( 1 , NEWPTR) ) )THEN 

C 

*  THEN  DELETE  THE  NEW  EDGE  BY  DECREASING  THE  REMAINING  EDGE  NUMBERS 

C 

NBEDGS=NBEDGS-  1 
DO  3S  I=NEWFTR, NBEDGS 

IBEDGE (l,I)=IBEDGE(l,I+i) 

IBEDGE (2,1 ) =IBEDGE (2,1+1) 

3S  CONTINUE 

GOTO  30 
ENDIF 

40  CONTINUE 
30  CONTINUE 
RETURN 
END 


A. 14  WRIOUT 

SUBROUTINE  WRIOUT(BNODES , IBEDGE  NJUN) 

C====================================— ================================= 

CHARACTER* 10  NAME 

DIMENSION  BNODES (3 , * ) , IBEDGE(2 , *) 

COMMON  /BODY/NBNODS .NBEDGS, NFACES 
C 
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NAME=’ F0R002.DAT’ 

4  CALL  EOFCLR(S) 

3  FORMAT(AIO) 

OPEN (6 ,FILE=NAME , TYPE* ’ NEW ' ) 
REWIND(6) 

IF(NJUN.LE.O)THEN 

N JCT=N JUN 

NJUN= 1 

ELSE 

NJCT=1 

ENDIF 

WRITE(6 , 1 ) N JCT , N JUN 
WRITE (6  ,  l)NBNODS  ,  NRF.DGS 

1  F0RMAT(3I5) 

DO  10  J=1 .NBNODS 

WRITE (6 , 2)  J  ,  (BNODESQ  ,  J)  ,1=1,3) 
10  CONTINUE 

2  F0RMATCI5 , 1P3E22 . 14) 

DO  20  J= 1 , NBEDGS 

WRITE (6 , 1) J , (I SEDGE (I , J)  ,1=1,2) 
DO  CONTINUE 
RETURN 
END 


A. 15  TSTDAT 


SUBROUTINE  TSTDAT 

0================================================= 

PARAMETER(MXFLD=10 ,MXEXCI=10) 

CHARACTER* 1  ID 

I  FORMAT(Al) 

INTEGER  IGNDP(3) 

LOGICAL  PRINTC ,THEV 
REAL  RFIELD(3,MXFLD) 

C 

II  CALL  E0FCLRC5) 

PRINT* , ’ENTER  THE  NUMBER  OF  SYMMETRY  PLANES’ 
IS  CALL  EOFCLR(S) 

READ(S,* ,END=15)NGNDP 
IF (NGNDP . EQ . 0)THEN 
IGNDP ( 1 ) =0 
IGNDP (2) =0 


(b 


IGNDP(3)=0 

ELSEIF (NGNDP . GE . 1 . AND . NGNDP . LE . 3) THEN 

PRINT*, ’ENTER  SYMMETRY  PLANE  TYPE  AT  X=0’ 

PRINT*,’  -1  IF  THERE  IS  A  P.E.C’ 

PRINT*,’  0  IF  NO  IMAGE  PLANE’ 

PRINT*,’  +1  IF  THERE  IS  A  P.M.C’ 

16  CALL  E0FCLR(5) 

READ  C 5 , * ,END=16) IGNDP(l) 

PRINT*, ’ENTER  SYMMETRY  PLANE  TYPE  AT  Y=0’ 

116  CALL  E0FCLRC5) 

READ (5 , * ,END=1 16) IGNDP(2) 

PRINT* , ’ENTER  SYMMETRY  PLANE  TYPE  AT  Z=0 ’ 

216  CALL  EOFCLR(S) 

READ(S,* , END=216)IGNDP(3) 

ELSE 
GOTO  IS 
ENDIF 

17  CALL  EOFCLR(S) 

WRITEC3 , *)NGNDP 
WRITE(6  ,*) (IGNDP(I)  ,1  =  1,31 
C 

*  PRINTC  AND  THEV  ARE  WRITTEN  EXPLICITLY  AS  .TRUE.  OR  .FALSE. 

*  BECAUSE  PATCH  MAY  BE  RUN  ON  A  DIFFERENT  MACHINE  THAN  BUILD. 

*  FOR  INSTANCE,  IF  BUILD  WERE  RUN  ON  A  VAX,  THE  OUTPUT  OF  THEV 

*  IF  THEV  WERE  FALSE  WOULD  BE  F  BUT  IF  PATCH  WERE  RUN  ON  A  CRAY, 

*  THE  CRAY  WOULD  NEED  A  DECIMAL  POINT  BEFORE  THE  F 
C 

21  CALL  F.0FCLR(5) 

PRINT* ,’ INPUT  IPAT ; 0  IF  NO  FAR  FIELD, 1  OR  2  IF  FAR  FIELD’ 
PRINT* , 'IPAT=1  IF  A  3  POINT  QUADRATURE  IS  USED’ 

PRINT* ,’ IPAT=2  IF  A  1  POINT  QUADRATURE  IS  USED’ 

READ(5 , *) IPAT 
WRITE(6 , *) IPAT 
IFCIPAT .NE . 0)THEN 

PRINT*, ’ INPUT :PHI1,PHI2,NPHI , THETA  1 .THETA2 ,NTKETA  (DEG) ’ 
READ (5, *) PHI  1 ,PHI2,NPHI , THETA  1 , THETA2 , NTHETA 
WRITE(6 , *)PHI1 ,PHI2 , NPHI , THETA  1 ,THETA2 .NTHETA 
ENDIF 

PRINT* ,’ INPUT  ITOT ; =0  IF  NO  CHARGE  DENSITY’ 

PRINT* ,’ IT0T;=1  IF  CHARGE  DENSITY  COMPUTATION  IS  DESIRED’ 
READ(S , *) ITOT 
WRITE(6 , *) ITOT 
NEXCIT=1 

DO  30  1=1, NEXCIT 

PRINT* , ’EXCITATION  IS  PLANE  WAVE,  OR  VOLTAGE7’ 
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PRINT*, ’TYPE  IN  "P",  OR  "V"’ 

222  CALL  E0FCLR(5) 

READ(5 , 1 ,END=222) ID 
WRITE (6 , ’ (IX ,A1) ’ )ID 
IFCID.NE. ’ V’ )THEN 

PRINT*, ’INPUT  THETA,  PHI,  REAL  AND  IMAG  OF  HTHETA ,  ’ 
PRINT*, ’REAL  AND  IMAG  OF  HPHI’ 

22  CALL  EOFCLR(S) 

READ (5 , * ,END=22) THETA , PHI .RHTHET ,CHTHET , RHPHI , CHPHI 
WRITE(6 , ’ (6(E12.5) ) ’ ) THETA ,PHI .RHTHET .CHTHET , RHPHI .CHPHI 
ELSEIF(ID.NE. ’ P ’ )THEN 
WRITE (8, ’ (IX ,A1) ’)ID 

PRINT* , ’NUMBER  OF  VOLTAGE  SOURCES  ON  THE  WIRE’ 

122  CALL  E0FCLR(5) 

READ(S,* ,END=122)NV0LT 
WRITE(6,*)NV0LT 
WRITE (8 , *)NVOLT 

DO  5000  1 1 1  =  1 , NVOLT 

PRINT*, ’DELTA  GAP  VOIIACE  ON  WHICH  NODE  OF  THE  WIRE?’ 

123  CALL  EOFCLR(S) 

RE AD (5,* ,END=123)N0PV 

PRINT*, ’VOLTAGE  =  7  IN  COMPLEX  FORM,  REAL(V) ,  IMAG(V)’ 

124  CALL  EOFCLR(S) 

READ  (5  ,  *  ,  END=  124)  RV  ,  XV 
WRITE(6,*)N0DV,RV,XV 
WRITE (8 , * ) NODV , RV , XV 
5000  CONTINUE 
ENDIF 

30  CONTINUE 
C 

40  CONTINUE 

PRINT* , ’ENTER  FREQUENCIES,  -1  WHEN  DONE’ 

125  CALL  E0FCLR(5) 

READ (5 , * , END= 125) FREQ 
WRITE (6,*) FREQ 
IF(FREQ . NE . -  1) GO  TO  40 

99  CONTINUE 

CL0SE(UNIT=6, DISPOSE3 ’SAVE’) 

CLOSE (UNIT=8 .DISPOSE3 ’ SAVE ’ ) 

RETURN 

END 
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A. 16 


XPROD 


SUBROUTINE  XPROD ( X 1 , Y 1 , Z 1 , X2 , Y2 , Z2 , X3 , Y3 , Z3 ) 


X3=Y1*Z2-Y2*Z1 

Y3=X2*Z1-X1*Z2 

Z3=X1*Y2-X2*Y1 

RETURN 

END 


A. 17  UNTVEC 

SUBROUTINE  UNTVEC(X1 , Y1 , Z1 , X2 , Y2 , Z2 ,UX , UY ,UZ) 

UX=X1-X2 
UY=Y 1 -Y2 
UZ=Z1-Z2 

SIZE=SQRT(UX*UX+UY*U"Y+UZ*UZ) 

UX=UX/SIZE 

UY=UY/SIZE 

UZ=UZ/SIZE 

RETURN 

END 


A. 18  FAEMUL 

SUBROUTINE  FAEMUL ( IBEDGE , IFACES , ITRAK , IFLAG) 

C 

»  IF  IFLAG=1 

*  THIS  SUBROUTINE  FILLS  IFACES  WITH  THE  NODE  NUMBERS  THAT  FORM  THE  FACE. 

*  IF  IFLAG=2 

*  THIS  SUBROUTINE  FILLS  IFACES  WITH  THE  EDGE  NUMBERS  THAT  FDRM  THE  FACE. 

*  IT  RETURNS  THE  NUMBER  OF  FACES(NFACES) .  ITRAK  IS  A  WORK  ARRAY. 

C 

INTEGER  IBEDGE(2 , *) ,IFACES(3,*) , ITRAK(* ) 

COMMON  /BODY/NBNODS .NBEDGS .NFACES 

C 
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NFACES=0 


C 

*  FIND  FACES  AND  LIST  THEM  IN  IFACES. 

C 

DO  100  IEDGE=1 .NBEDGS-2 
NTRAK=0 
C 

«  LOOK  FOR  ALL  EDGES  THAT  ATTACH  TO  EDGE  IEDGE  AND  PUT  THEM  IN  ITRAK . 
C 

DO  200  JEDGE=IEDGE+1 .NBEDGS 
DO  20  1=1,2 
DO  21  J=1 ,2 

IF(IEEDGE(I , TEDGE)  . EQ  .  IBEDGEC J , JEDGE) )THEN 

n 

*  WE  HAVE  FOUND  AN  EDGE 

C 

NTRAK=NTRAK+ 1 
ITRAK (NTRAK) = JEDGE 
GOTO  200 
END  IF 

21  CONTINUE 

2C  CONTINUE 

2 CO  CONTINUE 

*  fin:  all  fairs  of  edges  that  form  a  face  WITH  IEDGE. 

r 

DO  300  JEDGE= 1 , NTRAK- 1 

DO  301  KEDGE=JEDCE+1 .NTRAK 
DO  30  J=1 ,2 
DO  31  K=1 ,2 

*  IF  THE  2  EDGES  IN  ITRAK  HAVE  A  COMMON  POINT  AND 

*  THE  COMMON  POINT  IS  NOT  IN  COMMON  WITH  THE  IEDGE. . . 

C 

IF ( (IBEDGEC J , ITRAK (JEDGE)) . EQ . IBEDGECK , ITRAK (HEDGE) ) ) 
> . AND . ( IBEDGEC  J , ITRAK ( JEDGE) )  NE . IBEDGF ( 1 , IEDGE) 

> . AND . IBEDGEC J , ITRAK ( JEDGE) ) . NE . 1BEDGEC2 , IEDGE) ) )THEN 

r 

*  THEN  WE  HAVE  FOUND  A  FACE. 

c 

NFACES=NFACES+1 
IFCIFLAG.EQ . 1)THEN 

C 

*  PUT  THE  NODES  INTO  IFACES 
r 
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CALL  BFACVT(IBEDGL,IEDGE,ttr.Ak(jedCE) , ITRAK(KEDGE) , 
>  N0DE1 , NODE2 , NQDE3! 

I FACES ( 1 , NFACES) =NODEl 
I  FACES (2 , NFACES) =N0DE2 
I FACES (3 , NF  ACES) =M0DE3 
ELSE 

U 

*  PUT  THE  EDGES  INTO  I  FACES. 

C 

I  FACES  (1  ,  NFACES  )  =  J.EDGE 
I FACES (2  , NFACES) =ITRAK (JEDGE) 

I  FACES (3, NFACES)  =  ITRAK (KEDCE) 

ENDIF 
GOTO  300 
ENDIF 

31  CONTINUE 

30  CONTINUE 

301  CONTINUE 

300  CONTINUE 
ICC  CONTINUE 
RETURN 
END 


A. 19  BFACVT 


SUBROUTINE  BFACVT 1 IBEDGE , IEl , JE2, IE3 , NV1 , NV2 , NV3) 


*  NV1  IS  NODE  OPPOSITE  EDGE  IEl. 

*  NV2  IS  N!  DE  OPPOSITE  EDGE  IE2. 

*  NV3  IS  NODE  OPPOSITE  EDGE  IE?. 

INTEGEF  IBEDGE  '.2  ,* ) 

COMMON  /BODY/NBNODS  .NETDGS , NFACES 

*  THE  NODE  NVi  IS  THE  NODE  THAT  EDGES  2  AND  3  HAVE  : COMMON 

I F  f  IBEDGEM  ,  IE2;  EQ  IBEDGEC 1  .  IF.  }'•  OR  .  I  HEDGE  (  ,  IF..U  .  EC  1  HEDGE  E? 

>.)'.)  THEN 

NV 1  =  1 3EDGE ( 1 , IE2  i 
ELSE 

NV 1 =IBEDGE( 2 . IE2) 


SI) 


ENDIF 


*  THE  NODE  NV2  IS  THE  NODE  THAT  EDGES  1  AND  3  HAVE  IN  COMMON. 

C 

IF (IBEDGECl ,IE1) . EQ . IBEDGE( 1 , IE3) . OR . IBEDGE ( 1 , IE1) . EQ . IBEDGE (2 , IE3 
>))THEN 

NV2=IBEDGE(1 ,IE1) 

ELSE 

NV2= IBEDGE (2 , IE1 ) 

ENDIF 

C 

*  THE  NODE  NV3  IS  THE  NODE  THAT  EDGES  1  AND  2  HAVE  IN  COMMON. 

C 

IF (IBEDGECl ,  IE1 ' .EQ. IBEDGECl ,IE2) . Oh. IBEDGECl , IE1) . EQ . IBEDGE C2 , IE2 
> ) )THEN 

NV3= IBEDGEC 1 , IE1 ) 

ELSE 

nv'=:bedge(2,iei) 

ENDIF 

RETURN 

END 


A. 20  EOFCLR 


SUBROUTINE  EOFCLR(I) 


*  THIS  ROUTINE  CLEARS  AN  END-OF-FILE.  IT  I?  USED  TO  PREVENT  THE  USER 

*  FROM  BEING  BOMBED  OFF  IF  A  <CR>  IS  HIT  BY  ACCIDENT. 

REWIND  CD 

RETURN- 

END 


A. 21  WIRDAT 


SUBROUTINE  WIRDAT 

I H I r  ROUTINE  CREATES  INPUT  DATA  OF  A  STRAIGHT 

;■  WIRE  FDR  I  UN  CRD  CODE 

si 


REAL  SH(3) 

WRITEC6,*) ’THE  COORDINATES  OF  THE  END  POINT  OF  THE  WIRE?’ 
WRITEC6,*) ’X.Y.Z  IN  RECTANGULAR  COORDINATE  SYSTEM’ 

1  CALL  E0FCLR(5) 

READ (5 ,* ,END=1)X1 ,Y1 ,Z1 

WRITE(6,») ’THE  COORDINATES  OF  THE  OTHER  END  POINT  OF  THE  WIRE?’ 
WRITE(6 , *) ’ X , Y , Z  IN  RECTANGULAR  COORDINATE  SYSTEM’ 

2  CALL  EOFCLR(S) 

READ (5 , * ,END=2) X2 , Y2 ,Z2 

WRITE(6,*) ’HOW  MANY  SEGMENTS  ON  THE  WIRE7’ 

3  CALL  EOFCLR(S) 

R£AD(5 , * ,END=3)NSEG 
WRITE(S,*) ’RADIUS  OF  WIRE  =  ?’ 

4  CALL  EOFCLR(S) 

READ (S , * , END=4 ) RWIRE 
NODE=NSEG+ 1 
WRITE(8 , *}  NODE , NSEG 
SH(1)=X2-X1 

SH (2) =Y2-Y 1 
SH(3)=Z2-Z1 

S=SQRT(SH ( 1) *SH ( 1 )+SH (2) *SH(2^  +SK(3) *SH (3 ) ) 

DO  400  J=1 ,3 
400  SH(J)=SH(J)/S 
DEL=S/NSEG 
DO  N=1 .NODE 
DL  =  DEL* (N-  1 ) 

X=X1+DL*SH(1) 

Y=Y1+DL*SH(2) 

Z=Z1+DL*SH(3) 

WRITE(8 , *) N , X , Y  ,  Z 
END  DO 

DO  NS= 1 , NSEG 

WRITE(8,*)NS,NS,NS+1 , RWIRE 

END  DC 

RETURN 

END 


A. 22  NECDAT 

SUBROUTINE  NECDAT (N JUN ) 

C - 

C  THIS  SUBROUTINE  READ  EXISTING  NEC  FORMATED  DATA  FILE 
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C  AND  TRANSLATE  TO  JUNCTION  FORMATED  INPUT  DATA  FILES 
C 

PARAMETER (MXEDGS' 1500, MXWNOD= 1 500) 

INTEGER  NCON (2 , MXEDGS) , NN (3) , NED(3 , 3) 

REAL  DAT(3 , MXEDGS) ,X(3) ,Y(3) ,Z(3) 
ft  ,WN0DE(3,MXWN0D) ,SH(3) 

CHARACTER  FILENAME* 15 , TAG (MXEDGS) +2 ,AA*2,NAME*1S 

10  FORMAT(A) 

PRINT*, ’WHAT  IS  THE  FILENAME  OF  NEC  FORMAT  DATA  FILE?’ 
1  CALL  E0FCLR(5) 

READC5, 10, END=1) FILENAME 

OPEN ( 10 ,FILE=FILENAME , STATUS' ’ OLD  * ) 

REWIND (10) 

NAME' ’ F0RO02 . DAT ’ 

4  CALL  EOFCLR(S) 

3  FORMAT(AIO) 

OPEN (6 , FILE'NAME ,TYPE= ’ NEW ’ ) 

REWIND(6) 

IF (N JUN . LE . 0)THEN 

NJCT'NJUN 

NJUN'l 

ELSE 

NJCT'l 

ENDIF 

WRITE (6 , * ) NJCT , N JUN 
C 

C  READ  INPUT  DATA  FILE 
C 

CO  500  N'l, MXEDGS 
500  READ (10, 11 ,END=600)TAG(N) 

11  FORMAT ( A2) 

600  LINE'N 

REWIND (10) 

NODE'O 

NEDG'O 

DO  70C  NL'l.LINE 

C 

C  READ  THE  COORDINATES  OF  THE  THREE  VERTICES  OF  THE  TRIANGLE 
C 

IF (TAG(NL) . EQ . ’SP’)THEN 

READ (10, 1 12)AA,X(1) ,Y(l)  ,Z(1)  ,X(2) ,Y(2) ,2(2) 

112  FORMAT(A2,8X,6F10.4) 

READ (10, 113)AA,X(3)  ,Y(3)  ,Z(3) 

113  FORMAT (A2 ,8X , 3F10 . 4) 

C 


C  DISCARD  DUPLICATE  NODES 
C 

DO  SO  1=1,3 
DO  20  N=1 .NODE 

20  IF (DAT ( 1 , N) .EQ.X(I) . AND . DAT (2 , N) .EQ.Y(I) . 

ft  AND . DAT (3 ,N) .EQ.Z(I))  GO  TO  30 
N0DE=N0DE+1 
NN (I ) =NODE 
DAT (1 , NN(I) ) =X(I ) 

DAT(2,NN(I) )=Y(I) 

DAT(3,NN(I))=Z(I) 

30  NN (I ) =  N 

SO  CONTINUE 

C 

C  DISCARD  DUPLICATE  EDGES 

C 

DO  60  1=1,3 
11=1+1 

IFUl.EQ.  4)11=1 
NED(1 ,I)=NN(I) 

60  NED (2 , I ) =NN (II) 

DO  70  1=1,3 
DO  80  NE=1 , NEDG 

SC  IF ( (NCON ( 1 , NE) . EC, . NED ( 1 , I ) . AND . NCCN (2 , NE) . EQ . NED (2 , I ) ) . OR . 

ft  (NCON ( 1 ,NE) . EQ . NED (2 , I ) . AND . NCCN (2 , NE) . EQ . NE0(1 , I' ) )  GO  TO  "0 
NEDG=NEDG+1 
NNE=NEDG 

NC0N(1 ,NNE)=NED(1  ,1) 

NCON (2 ,NNE) =NED (2,1) 

70  CONTINUE 

ENDIF 

C 

C  READ  THE  TOTAL  SUBSEGMENT  NUMBER  OF  THE  WIRE 

C  READ  THE  COORDINATES  OF  THE  START  AND  END  POINTS  OF  THE  WIRE 

C 

IF (TAG(NL) .EQ . ’GW’ )THEN 

READ (10, 800) AA , ITG , NWSEG  ,WNQDE( 1  ,1) ,WN0DE(2 , 1  '  ,WN0DE(3 .1) 

$  , WNODE( 1 , NWSEG+ 1 ) , WNODE (2 , NWSEG+ 1 ) , WN0DE(3 , NWSEG+ 1 ) , RAD 

800  FORMAT( A2 , 13 , 1 5 , 7F 10 . 4) 

ENDIF 

700  CONTINUE 

C 

C  TRANSFER  NEC  FORMAT  DATA  TO  OUR  FORMAT  DATA 
C 

WRITE(6,*)N0DE. NEDG 


S4 


DU  100  1=1, NODE 

100  WRITE ( 6 , * ) I , DAT (1,1) ,DAT(2,I) ,DAT(3,I) 

DO  200  1=1 ,NEDG 

200  WRITE(6 ,*)I ,NCON (1,1)  ,NC0N(2,I) 

SH(1)=WN0DE(1 ,  NWSEG+l)-WNODE(l. , 1) 

SH (2) =WN0DE(2 , NWSEG+ 1 ) -WN0DE(2 , 1 ) 
SH(3)=WN0DE(3, NWSEG+ 1)-WN0DE(3,1) 
S=SQRT(SH(1)*SH(1)+SH(2)*SH(2)+SH(3)*SH(3)) 
DO  400  J=1 , 3 

400  SH(J)=SH(J)/S 

DEL=S/NWSEG 
DO  900  >1,3 
DO  900  N=1 ,NWSEG 

900  WN0DE(J,N+1)=WN0DE(J , 1) +DEL*SH( J) *N 

WRITE (8,*) NWSEG+ 1 , NWSEG 
DO  300  1  =  1, NWSEG+ 1 

300  WRITE(8,*)I,WN0DE(1,I) , WN0DE(2 , I) , WN0DE(3 , I) 

DO  1000  1=1, NWSEG 

1000  WRITE (8 , * ) I , I , 1+1 ,RAD 

RETURN 
END 


A. 23  BODIN 


SUBROUTINE  BODIN (MXBDND , MXEDGS , DATNOD , NCONN , NNODES , 
SNEDGES  ,  MXEXCI ,  EXC ITF  .  NEXCIT ,  N  JCT  ,  MN  J’JN  ,  MXWVLT  ,  NWVLT  , 
$NODVLT ,CWVLT , IPAT , ITCT) 


C  THIS  SUBROUTINE  SETS  CONSTANTS  FOR  COMMON/MEDIUM/.  THEN  IT  READS 
C  TWO  SETS  OF  INPUT  DATA  DEFINING  THE  BODY  OR  BODIES. 

C  THE  FIRST  SET  OF  DATA  CONTAINS  NODE  NUMBERS 

C  AND  THEIR  COORDINATES.  EACH  NODE  ALONG  WITH  ITS  THREE  COORDINATES 
C  IS  READ  AND  STORED  IN  THE  MATRIX  DATNOD. 

C  THE  SECOND  SET  OF  DATA  CONTAINS  EDGE  NUMBERS  AND 
C  THE  NODES  TO  WHICH  EACH  PARTICULAR  EDGE  IS  CONNECTED.  THIS 
C  INFORMATION  IS  STORED  IN  THE  MATRIX  NCONN. 

C  NCONN (3, EDGE) =- 1  BECAUSE  THE  MULTIPLICITY 

C  FACTOR  IS  THE  NUMBER  OF  ATTACHED  FACES-1.  LATER  (IN  GECM)  EACH  T 
C  FACE  IS  FOUND  ATTACHED  TO  THE  EDGE,  NCONN (3 , EDGE)  WILL  BE  INC REM 
C  /GPLANE , FINDIF  ,  AND  LOOP/. 

C  FINALLY,  IT  READS  THE  INCIDENT  FIELD  PARAMETERS.  THETA  AND  PHI 
C  THE  DIRECTION  OF  PROPAGATION  OF  THE  PLANE  WAVE. 
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C - - - 

COMPLEX  ETHETA ,EPHI , HTHETA , HPKI , CWVLT(MXWVLT) 
CHARACTER*2  ITYPE 
CHARACTER* 1  IG 

DIMENSION  DATN0D(3 ,MXBDND) ,EXCITE(7,MXEXCI) 

INTEGER  NC0NN(3 .MXEDGS) ,IGNDP(3) .NODVLT(MXWVLT) 

REAL  MU, IMP 
LOGICAL  PRINTC.THEV 

C0MM0N/MEDIUM/DEG2RAD , EPSLON ,MU , IMP , SL , PI 
COMMON /P AT/PHI 1  ,PHI2 ,NPHI .THETAl ,THETA2 .NTHETA 
COMMON/GPLANE/NGNDP , IGNDP 
COMMON /FINDIF/NNFLD ,DX ,DY ,D2 
COMMON/LOOP/PRINTC ,THEV , IETHEV  MLTTHV 
COMMON /IGUAN A/ IG 

C  SET  CONSTANT  PARAMETERS  FOR  /MEDIUM/ 

PI=3. 141S926S358979 
SL=2 . 997925E8 
MU=PI*4 . 0E-07 
EPSLON= 1 . 0/ (SL*SL*MU) 

IMP=SQRT(MU/EPSLON) 

DEG2RAD=PI/180. 

C 

C  N JCT=C  FOR  NO  JUNCTION  CASE,  NJCT=1  OTHERWTSE 
C  MNJUN :  NUMBER  OF  JUNCTIONS 
READ (2 , * ) N JCT ,MN JUN 

WRITE(3 , *) ’  NUMBER  OF  JUNCTION  =  ’  MNJUN 
C 

IF(NJCT.LE.O)  MNJUN=1 
READ ( 2 , * ) NNODES , NEDGES 

c 

C  CHECK  IF  DECLARED  DIMENSION  IS  ENOUGH 
C 

IF(NEDGES . GT . MXEDGS)  THEN 

WRITE(6,*) ’DECLARED  DIMENSION  FOR  BODY  IS  INSUFFICIENT’ 
STOP 
ENDIF 
C 

C  FILL  DATNOD  WITH  NODE  LOCATIONS 
C 

DO  10  1=1, NNODES 
READ(2 , *)  NODE , X , Y , Z 
DATNODCl ,NODh)=X 
DATNOD (2 .NODE) =Y 
DATN0D(3,N0DE)=Z 
10  CONTINUE 


SG 


c 

C  FILL  NCONN  WITH  EDGE  CONNECTIONS. 

C 

DO  20  1=1, NEDGES 
READ (2,*  )  NE.NF.NT 
NCONN ( 1 , NE) =NF 
NCONN (2 , NE) =NT 
NC0NN(3 ,NE)=-1 
20  CONTINUE 
C 

C  TRANSFER  INPUT  DATA  TO  IGUANA  FORMAT 

C 

IFCIG.EQ. ’ Y ’ )THEN 
WRITE(l«,ll7) 

117  FORMAT ( ’  CM,  INPUT  DATA  IN  IGUANA  FORMAT’) 

WRITE(18 , 116) 

116  FORMAT!’  CE,  ') 

DO  119  NN=1, NEDGES 
N 1=NC0NN ( 1 , NN) 

N2=NC0NN (2 ,NN) 

119  WRITE( 18 , 1 28)NN , DATNOD ( 1 ,N 1 ) , DATNOD (2 , N 1 ) ,DATN0D(3,N1) 

$  ,DATN0D(1 ,N2) , DATNCD (2 , N2) , DATN0D(3 , N2) 

128  FORMAT! ’  GW , ’ , 13 , ’ , 1 , ’ , F9 . 3 , ’ , ’ , F9 . 3 , ' , ’ , F9 . 3 , ’ , ’ , F9 . 3  ,  ’ , ’  ,F9 . 3 , 
’ .F9.3, ' ,0. 1  ’) 

118  FORMAT (  ’  GW  ’  ,  I  3  .  AX  ,  ’  1  ’  ,  f>F  1  0 . 4  ,  FX  ,  ’  ~  '  > 

ENDIr 

C 

C  READ  GROUND  PLANE  PARAMETERS.  NGNDP=7HE  NUMBER  OF  GROUND  PLANES. 

C  ,  OR  A  P.M.C.  GROUND  PLANE  RESPECTIVELY.  1  =  1, 2, 3,  DENOTES  GROUND  PLANES 
C  IN  THE  X=0 , Y=0 , AND  2=0  PLANES  RESPECTIVELY. 

C  READ  IN  THE  NUMBER  OF  NODES,  EDGES,  AND  FIELD  OBSERVETICN  POINTS. 
PRINTC= .TRUE • 

NNFLD=0 

READ(2,*)NGNDP 

READ (2 , *) IGNDP( 1 ) , IGNDP !2) , IGNDP(3) 

WRITE(3 , 1 ) NGNDP 

1  FORMAT! IX , ’NUMBER  OF  IMAGE  PLANES=’,I3) 

WRITE (3 , 2HGNDP!  1)  ,  IGNDP  (2)  ,  IGNDP (3) 

2  FORMAT! IX, ’IMAGE  PLANE  NOTATION:’, 

$/7X , ’  0=N0  CROUND  PLANE’, 

$/7X , ’  1=A  P.M.C.  GROUND  PLANE’, 

$/7X  ,  ’ - 1  =  A  P.E.C.  GROUND  PLANE’, 

$/ IX  ,  13 , ’  IN  THE  X=0  PLANE’ , 

$/  1 X  ,  13  ,  ’  IN  THE  Y=0  PLANE’  , 
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$/lX , 13  ,  ’  IN  THE  Z=0  PLANE’) 

C 

C  WRITE  INFORMATION  TO  TAPE3 
C 

WRITE(3 , 19) 

19  F0RMAT(/20X, ’VERTEX  COORDINATE  LIST') 

WRITEC3 , 21 ) 

21  FORMAT (18X, ’ALL  DIMENSIONS  ARE  IN  METERS’) 

WRITE(3 ,22) 

22  FORMAT(// IX, ’VERTEX  NUMBER ’, 3X ,’ X-COORDINATE ’, 2X  , 

$ ’ Y-COORDINATE  Z-COORDINATE’ ) 

DO  30  1=1 .NNODES 

WRITER 3 ,23)1 , DATNOD( 1 , I) ,DATN0D(2,I) ,DATN0D(3,I) 

30  CONTINUE 

23  FORMAT(3X,I4,10X,1E12.5,2X,1£12.5,2X,1E12.5) 

C  IF  FAR  FIELD  PATTERN  OR  RADAR  CROSS  SECTION  IS  DESIRED. 

C  IPAT=1  IF  A  3  POINT  QUADRATURE  IS  USED 

C  IPAT=2  IF  A  1  POINT  QUADRATURE  IS  USED 

C  OTHERWISE  IPAT=0. 

READ ( 2 , * ) IPAT 

WRITE(3 , *) ’  IPAT  =  ’  ,  IPAT 

WRITE(3 , *) ’  IF  IPAT.GT.O  FAR  FIELD  PATTERNS  ARE  COMPUTED’ 

IF ( IPAT . GT . 0)THEN 

C  FAR  FIELD  PATTERN  PARAMETERS  IN  SPHERICAL  COORDINATES: 

C  PHI  VARIES  FROM  PHI1  TO  PHI2  (DEGREES)  WITH  NPHI ( >0) POINTS . 

C  THETA  VARIES  FROM  THETA1  TO  THETA2  (DEGREES)  WITH  NTHETA (>0)  POINTS. 
READ (2 , ») PHI 1 , PHI2 , NPHI , THETA  1 , THETA 2 , NTHETA 
WRITE(3,») ’  PATTERN  PARAMETERS:’ 

WRITE(3  ,  * ) ’  PHI  1 ,  PHI2  ,  NPHI,  THETA  1 , 
ft  THETA2 ,  NTHETA 

WRITE (3 ,8999) PHI 1 ,PHI2, NPHI , THETA 1 .THETA2 .NTHETA 
8999  FORMAT (1X,2(2F10.4,IS)) 

ENDIF 

READ(2 , *) ITOT 
C  READ(2 , *)NEXCIT 

NEXCIT=1 

C  READ  THE  INCIDENT  FIELDS  AND  OR  VOLTAGE  SOURCES  FOR  WHICH  THE-CURRENT 
C  DISTRIBUTIONS  NEED  TO  BE  COMPUTED. 

DO  40  140=1 .NEXCIT 
READ (2 ,216)  ITYPE 
216  F0RMATU2) 

IF (ITYPE .EQ . ’  P’)  THEN 
EXCITE(1 ,I40)=0. 

C  EXCITE (2- 7 , 140)=THETA  ,  PHI,  REALHTHETA ,  IMAGHTHETA ,  REALHPHI ,  IMAGHPHI 
READ(2,*)(EXCITE(I, 140) ,1=2,7) 
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HTHETA=CMPLX( EXCITE (4 , 140) ,EXCITE(5 , 140) ) 
HPHI=CMPLX(EXCITE(6 ,140) ,EXCITE(7 , 140)  ) 

ETHETA=-IMP*HPHI 

EPHI=IMP*HTHETA 

C  WRITE (3 ,2 17) EXCITE (2 ,140) ,EXCITE(3 , 140) 

C  217  F0RMAT(/SX, ’ANGLE  OF  INCIDENCE’ ,/,10X, ’THETA=’ ,E12. 6, IX, 
C  $ ' DEGREES ’ ,/10X, ’PHI=’ ,E12.5,1X, ’DEGREES’) 

C  WRITE (3 ,218)  ETHETA , EPHI , HTHETA , HPHI 

218  F0RMATC/5X, ’POLARIZATION’ ,/ , 10X , ’E-THETA=  (’.2E12.5, 

$’)  VOLTS/METER’, 

$/ , iOX , ’E-PHI=  ( ’ , 2E12 . S , ’ )  VOLTS/METER’, 

$/ , 10X , ’H-THETA=  (’.2E12.5,’)  ARPS/METER’, 

$/, IOX, ’H-PHI=  ( ’ , 2E12 . 5 , ’ )  AMPS/METER’) 

NWVLT= 1 

CWVLT ( 1 )  =  (0 . ,0. ) 

ELSE 

EXCITE( 1 , 140) = 1 . 

DC  11=2,7 
EXCITEU  ,I40)=0. 

ENDDO 

C  READIN  THE  VOLTAGE  STUFF 
READ  '2  ,  NWVLT 

WRITE 13,*) ’  NUMBER  CF  VOLTAGE  SOURCE  =  ’, NWVLT J 
DC  39  N=1 , NWVLT 
READ (2,*) NOD, RV, XV 
n:dvlt(n)=nod 

CWVLT ( N) =CMPLX (RV , XV) 

39  WRITE(3 , *) ’  V  =  ’ ,CWVLT(N)  ,  ’  VOLTS  ON  WIRE  NODE  ’.NOD 
ENDIF 

40  CONTINUE 
RETURN 
END 


A. 24  WIRIN 


SUBROUTINE  WIRIN (MXWNOD , MXWMLT , MXWSEG , NWNOD , NWSEG , NWUNKS , WNODE , 
SMULTW , NSEGC , WSEGH , RAD , INSEG , DATNOD .NNODES , N  JCT  ,  MN JUN , NWJUN , NB JUN) 

C - 

C  THIS  SUBROUTINE  READS 

C  TWO  SETS  OF  INPUT  DATA  DEFINING  THE  WIRE  OR  WIRES 
*  PARAMETERS  PASSED  INTO  WIRGOM: 
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*  MXWNOD  =  MAXIMUM  NUMBER  OF  WIRE  NODES. 

*  MXWMLT  =  MAXIMUM  MULTIPLICITY  THAT  ANY  WIRE  NODE  MAY  HAVE. 

*  MXWSEG  =  MAXIMUM  NUMBER  OF  WIRE  SEGMENTS. 

*  MXWZN  =  MAXIMUM  NUMBER  OF  LUMPED  IMPEDENCES  ON  WIRES. 

*  PARAMETERS  PASSED  FROM  WIRGOM: 

*  NWNOD  =  NUMBER  OF  WIRE  NODES. 

*  NWSEG  =  NUMBER  OF  WIRE  SEGMENTS. 

*  NWUNKS  =  NUMBER  OF  WIRE  UNKNOWNS. 

*  WNODE(I , J) 1=1 ,2 ,3  CONTAINS  THE  X.Y.Z  COORDINATES  OF  THE  JTH  WIRE  NODE 

*  MULTW(N)  CONTAINS  THE  MULTIPLICITY  OF  THE  NTH  NODE. 

*  NSEGCCl , J) : THE  JTH  WIRE  SEGMENT  RUNS  FROM  NSEGC(1,J)  TO  NSEGC(2,J). 

*  WSEGH(I.J)  1=1,2, 3  CONTAINS  THE  X,Y,Z  COORDINATES  OF  THE  MIDPOINT  OF 

»  JTH  WIRE  SEGMENT. 

*  RAD(N)  CONTAINS  THE  RADIUS  OF  THE  NTH  WIRE  SEGMENT. 

*  INSEG(M.N)  M= 1 , . . . , MULTW (N) + 1  ARE  THE  SEGMENTS  (IN  INCREASING  ORDER) 

«  ATTATCHED  TO  THE  NTH  WIRE  NODE. 

*  NWCZN  =  THE  NUMBER  OF  LUMPED  IMPEDENCE  LOADS  ON  THE  WIRE. 

*  IWCZN (1,1)  CONTAINS  THE  NODE  LOCATION  OF  THE  ITH  IMPEDENCE  LOAD, 

*  IWCZN(2 , I ) =1  IF  THE  LOAD  IS  ON  THE  FIRST  NODE  OF  THE  SEGMENT 

*  2  IF  THE  LOAD  IS  ON  THE  SECOND  NODE  OF  THE  SEGMENT 

*  1=1 . NWCZN. 

«  CWZN(I)  CONTAINS  THE  VALUE  OF  THE  COMPLEX  LUMPED  IMPEDENCE  FOR  THE 

*  IWCZN(1,I)TH  NODE,  1=1 , . . . , NWCZN . 


DIMENSION  WN0DEC3. MXWNOD) .WSEGH  .2, MXWSEG) .RAD(MXWSEG) , 

>  MULTW (MXWNOD) .NSEGC (2, MXWSEG) , INSEG(MXWMLT+ 1 , MXWNOD) , 

>  DATNODC3 ,NNODES) , NWJUN (MN JUN) , NBJUN (MNJUN) 

CHARACTER* 1  IG 

COMMQN/IGUANA/IG 

READ(8,*)NWN0D, NWSEG 

WRITEC9 , *) ’  NODES  SEGMENTS 

WRITE (9,*) NWNOD, NWSEG 

WRITE (9 ,  *)  ’  ’ 

C 

CHECK  IF  DECLARED  DIMENSION  IS  ENOUGH 

IF ( NWNOD . GT . MXWNOD . OR . NWSEG . GT . MXWSEG)  THEN 
WRITE(6,*) ’DECLARED  DIMENSION  FOR  WIRE  IS  INSUFFICIENT’ 
STOP 
ENDIF 

*  READ  WIRE  NODE  DATA  COORDINATES 
PI=3 . 1415926 


90 


T 


T 


AK=2 . *PI 

WRITE(9 ,*)  ’  NODE  #  X  Y  Z 

DO  10  N= 1 , NWNOD 

READ (8 , *)NN , WNODE! 1 , NN) ,WN0DE(2,NN) ,WN0DE(3,NN) 
WRITE(9,*)NN,WN0DE(1 ,NN) ,WN0DE(2,NN) ,WN0DE(3,NN) 

10  CONTINUE 

WRITEC9 ,*)  SEG  #  FROM  TO  RADIUS 

DO  20  N=1 , NWSEG 

READ (8,*)  NN,NSEGC(1 ,NN) ,NSEGC!2,NN) , RAD(NN) 

WRITE (9 , * )  NN , NSEGC( 1 , NN) ,NSEGC(2,NN) ,RAD(NN) 

20  CONTINUE 

C 

C  TRANSFER  INPUT  DATA  TO  NEC  FORMAT 

C 

IFCIG.EQ. ' Y ’ )THEN 
WRITE( 12 ,117) 

117  FORMAT( ’CM  INPUT  DATA  IN  NEC  FORMAT’) 

WRITE( 12,116) 

116  FORMAT ( ’ CE’ ) 

WRITE  Cl2.il 8) ITG, NWSEG, WNODE( 1, 1 ) ,WNCDE(2,1) ,  WNODE (3, 1) 
$  ,WN0DE(1 , NWNOD) , WNODE (2 , NWNOD ) , WN0DE(3 , NWNOD) ,RAD(1) 

C  TRANSFER  INPUT  DATA  TO  IGUANA  FORMAT 
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WRITE! 18 , 12b. 'NWSEG, WNODE (1 ,1) .WNDDEC2 , 1) ,WNCTE(3 , 1) 

$  , WNODE! 1 , NWNOD) .WNODE (2  .NWNOD) ,WN0DE(3, NWNOD) ,RAD(1) 

FORMAT ( ’ GW ’ , 13 , IS , 7F 10 . 4) 

FORMAT!’  GW,  999  ,  ’,13.  ’  ,  ’  ,F8 .2,  ’  ,  ’ .F8.2, ’ , ’  ,F8.2,  ’  .  ’  ,F8.2, ’  ,  ’  ,F8.2, 
’  ,F8.2, ’ , ’ ,F8.4) 

WRITE! 18.126) 

FORMAT!’  GE,’) 

WRITE!lS, 127) 

FORMAT! ’  EN, ’) 

ENDIF 

ICMPUTE  WIRE  HALF  NODES 


WRITEC9,*)’  SEG  #  CENTER  POINT  COORDINATES’ 

DO  30  N=1 .NWSEG 
NFROM=NSEGC! 1 ,N) 

NTO  =  NSEGC (2  , N ) 

DO  25  J=1 ,3 

WSEGH ( J , N )  =  1WN0DE! J , NFROM) +WNODECO . N  TO ) ) *  5 
25  CONTINUE 
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WRITE ( 9 , * ) N , WSEGH ( 1 , N ) , WSEGH ( 2 , N ) , WSEGH (3 , N ) 

30  CONTINUE 
C 

C  MNJUN :  NUMBER  OF  JUNCTION 

C  NWJUN ( I ) : WIRE  NODE  NUMBER  OF  THE  ITH  JUNCTION  1=1, MNJUN 
C  NB JUN ( I) : BODY  NODE  NUMBER  OF  THE  ITH  JUNCTION  1=1, MNJUN 
C 

IFCNJCT.EQ. 1)THEN 

CALL  FND JUN (WNODE , NWNOD , DATNOD , NNODES , MNJUN , NWJUN , NB JUN) 
ELSE 
MNJUN* 1 
NWJUN ( 1) =0 
NB JUN ( 1 ) =0 
ENDIF 
C 

CALL  WIRMUL (NJCT , MXWMLT , NWNOD , NWSEG , NSEGC , NWUNKS .MULTW , 
ftINSEG, MNJUN, NWJUN) 

RETURN 

END 


A. 25  FACMUL 


SUBROUTINE  FACMUL (NCONN .NEDGES . ITRAK, 

$  NBOUND .MXFACE, NFACES , NUNKNB) 


C  THIS  SUBROUTINE  FILLS  NBOUND  WITH  THE  FACES  FORMED  BY  THE  EDGES 
C  IN  NCONN.  IT  ALSO  FILLS  IN  THE  MULTIPLICITY  FACTOR  OF  THE  EDGE 
C  IN  NC0NN(3 .EDGE) .  IT  RETURNS  THE  NUMBER  OF  FACES (NFACES) , 

C  AND  THE  NUMBER  OF  BODY  UNKNOWNS (NUNKNB)  WHICH  IS  EQUAL  TO  THE 
C  SUMMATION  OF  THE  MULTIPLICITY  FACTORS  OF  THE  EDGES  BEFORE  GROUND 
C  PLANES  ARE  CONSIDERED.  ITRAK  IS  A  WORK  ARRAY. 

C - 

INTEGER  NC0NNC3 .NEDGES) ,NB0UND(3 .MXFACE; .ITRAK (NEDGES) 
NFACES=0 

DO  100  IEDGE=1 .NEDGES-2 
NTRAK=0 

DO  200  JEDGE=IEDGE+1 .NEDGES 
DO  20  1=1,2 
DO  21  J=  1 , 2 

IF (NCONN ( I , IEDGE) . EQ . NCONN ( J , JEDGE ' ' THEN 
NTRAK=NTRAK+ 1 
ITRAK (NTRAK 1 = JEDGE 
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GOTO  200 
ENDIF 

21  CONTINUE 

20  CONTINUE 

200  CONTINUE 

DO  300  JEDGE= 1 , NTRAK- 1 

DO  301  HEDGE* JEDGE+1 , NTRAK 
DO  30  J=1 ,2 
DO  31  K=1 ,2 

IF  (  (NCONN ( J , ITRAK ( JEDGE) ) . EQ . NCONN (K , ITRAK (KEDGE) ) ) . AND . 

$  (NCONN ( J , ITRAK (JEDGE) ) . NE . NCONN { 1 , IEDGE) . AND . NCONN ( J , ITRAK 

$  (JEDGE)) ,NE.NC0NN(2  ,  IEDGE) ) )TH£N 

NFACES=NFACES+1 
NBOUNDd  ,NFACES)  =  IEDGE 
NB0'JND(2  ,NFACES)  =  ITRAK(  JEDGE) 

NB0UND(3 ,NF ACES )= ITRAK (KEDGE) 

NCONN (3 , IEDGE) =NCONN (3 , IEDGE) +1 
NCONN (3 , ITRAK (JEDGE) ) =NCCNN (3 , ITRAK (JEDGE) ) *  1 
NCONN (3 , ITRAK (KEDGE) )= NCONN (3 , ITRAK (KEDGE) ) + 1 
GOTO  300 
ENDIF 

31  CONTINUE 

30  CONTINUE 

301  CONTINUE 

300  CONTINUE 
100  CONTINUE 

NUNKNB=3*NF ACES -NED GE3 

RETURN 

END 


A. 26  ORTFAC 


SUBROUTINE  ORTFAC ( NCONN .NBOUND  , NF ACES .NEDGES , MXDJBD , ITREE , I  TART. 
$  NEODYS , NBE) 


C  ORIENT  FACE  NUMBER 

C  ALL  EDGES  IN  THE  FIRST  DISJOINT  SURFACE  ARE  NUMBERED 
C  CONSECUTIVELY  STARTING  FROM  1.  THE  EDGES  IN  THE  NEXT  DISJOINT 
C  SURFACE  ARE  NUMBERED  CON’SECUTI VELY .  STARTING  WHERE  THE  LAST  SURFACE 
LEFT  OFF 
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c 

C  NC0NN(3 .NEDGES) :  EDGE  J  RUNS  FROM  VERTEX  NCONN(l.J) 

C  TO  VERTEX  NC0NN(2,J)  NCONN (3 , J)=MULTIPLICITY  FACTOR  OF  THE  EDGE 
C  NB0UND(3,NFACES) -.EACH  FACE  J  HAS  ORDERED  EDGES  NBOUND(I.J)  1=1 ,2,3 

C  J=1 ,2 . NFACES  . 

C  NFACES  EQUALS  THE  TOTAL  NUMBER  OF  FACES. 

C  NEDGES  EQUALS  THE  TOTAL  NUMBER  OF  EDGES. 

C  MXDJBD  EQUALS  THE  MAXIMUN  NUMBER  OF  EXPECTED  BODYS. 

C 

C  OUTPUT: 

C 

C  ISTARTCMXDJBD+l) :ISTART(I)=THE  LOWEST  NUMBERED  FACE  ON  THE  ITH 
C  TREE(DIS JOINT  SURFACE) 

C  ISTART(N80DYS+l)=NFACES+l 

C  MXDJBD. GE.NBODYS  OR  ROUTINE  STOPS  AND  PRINTS  A  WARNING. 

C  ITREE(NFACES) 

C  ITREE(I)  1=1, . . . ,ISTART(2)-1  =THE  FACES  ON  THE  FIRST  TREE. 

C  ITREE(I)  I=ISTART( J) , , ISTART( J+l) - 1 ,=THE  FACES  ON  THE  JTH  TREE. 

C  NBODYS  EQUALS  THE  NUMBER  OF  DISJOINT  SURFACES. 

C  NBE(MXDJBD) :NBE(I)  CONTAINS  THE  NUMBER  OF  BOUNDRY  EDGES  FOR  BODY  I. 

C 

C  FOR  EACH  FACE, 

C  IFACE=1, ... .NFACES,  THE  EDGES  IN  NBOUND (IFACE , II )  ,  11= 1 ,2 , 3 
C  ARE  REARRANGED  SO  THAT  THEIR  ORIENTATION  IS  CONSISTENT  WITH 
C  THE  LOWEST  NUMBERED  FACE  IN  THE  TREE  CONTAINING  IFACE. 

C  TWO  FACES  WITH  A  COMMON  EDGE  ARE  ORIENTED  CONSISTENTLY  WHEN  THE 
C  EDGE  CROSS  THE  NORMAL  TO  THAT  FACE  POINTS  OUT  OF  THAT  FACE  ACROSS  THE 
C  COMMON  EDGE  WHILE  THE  COMMON  EDGE  CROSS  THE  NORMAL  OF  THE  CONTIGUOUS 
C  FACE  POINTS  INTO  THE  CONTIGUOUS  FACE  ACROSS  THE  COMMON  EDGE. 

C  FOR  CONVENIENCE  ONE  MAY  CYCLICALLY  PERMUTE  EDGES  1,2,3  TO  2,3,1  OR 
C  3,1,2  WITHOUT  CHANGING  THE  FACE  ORIENTATION. 

c - - - 

INTEGER  NC0NN(3, NEDGES) ,NB0UND(3 .NFACES) , ITREEC NFACES) , 

$  ISTART(MXDJBD+1) .NBE(MXDJBD) 

NFACE1=NFACES+1 

NTREE=1 

LNF=1 

ITREE(LNF) =LNF 
ISTART(1)=LNF 
DO  1  NBODYS=l .MXDJBD 
DO  40  140=1,3 

IF (NCONN (3 , NBOUND (140 , LNF) ) . EQ . 0) NBE(NBODYS) =NBE(NBODYS) + 1 
40  CONTINTIE 

SI  DO  50  IFACE=LNF+1, NFACES 

DO  10  JTREE=LNF , NTREE 
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IF ( IFACE . EQ . ITREE( JTREE) )GOTO  SO 
10  CONTINUE 

LOWFACE=NFACEl 
DO  20  JTREE=LNF , NTREE 
DO  30  1=1,3 
DO  31  J=1 ,3 

IF(NBOUND(I ,IFACE) . EQ . NBOUND (J , ITREE(JTREE) ) .AND. 

$  ITREE(JTREE) . LT . LOWFACE) LOWF ACE=ITREE( JTREE) 

31  CONTINUE 

30  CONTINUE 

20  CONTINUE 

IF (LOWFACE . NE . NFACE1 )THZN 
DO  60  1=1,3 
DO  61  J=1 ,3 

IF(NBOUND(I , IFACE) .EQ . NBOUND(J .LOWFACE) ) THEN 
NTREE=NTREE+ 1 
ITREE(NTREE) =IFACE 
DO  41  141=1,3 

IF(NCONN (3 .NBOUND (141 , IFACE)) .EQ .0) 

$  NBE(NBODYS) =NBE(NBODYS) + 1 

41  CONTINUE 

ISL0T=I+1 
JSL0T=J+1 

IF (ISLOT. EQ . 4 ) ISL0T=1 
IF( JSLOT . EQ  4) OSLO  1  =  1 

IF(NC0NN(1,NB0UND(ISL0T .IFACE) ) . EQ . NCONN ( 1 , NBOUND ( JSLCT . 
SLOWF ACE) )  .  OR  .  NCONN  ( 1 ,  NBOUNDQSLOT  ,  IFACE)  >  .  EQ  .  NCONN  (2  .  NBO'JND  ( JSLCT  . 
SLOWFACE) ) .OR. NCONN (2, NBOUND (ISLOT.  IF ACE) ) . EQ . NCONN ( 1 . NBOUND (JSLOT , 
$LOWFACE) )  OR . NCONN (2 ,NBOUND( ISLOT .IFACE) ) . EQ  NCONN (2 , NBOUND (JSLCT , 
SLOWFACE) ))THEN 

IDUM=NB0UNP(1 .IFACE) 

NBOUND ( 1  ,  IFACE)  =  NBOUND (2  ,  IFACE.) 

NB0UND(2 , IFACE)=IDUM 
ENDIF 
GOTO  51 
ENDIF 

61  CONTINUE 

60  CONTINUE 

ENDIF 

SO  CONTINUE 

LNF=NTREE+ 1 
IF(LNF . LE . NFACES)THEN 
(START (NBODYS+ 1 ) =LNF 
NTREE=NTREE+ 1 
ITREE(NTREE) =LNF 


OS 


ELSE 

GOTO  999 
END  IF 

1  CONTINUE 

WRITE! 1 , 99) 

99  FORMATClX , 'WARNING  IN  CURDIR  MXDJBD  FOUND  BUT  STILL  HAVE  FACES 
$LEFT ’ ) 

STOP 

999  CONTINUE 

ISTART (NBODYS+l)=NFACES+l 

RETURN 

END 


A. 27  CLSBOD 

SUBROUTINE  CLSBOD (DATNOD .NCONN .NBOUNC , NNODES ,  NEDGES , NFACES , I , 

$  ISTART) 

C- - - - - 

C  THIS  SUBROUTINE  IS  CALLED  ONLY  IF  THE  EDDY  IS  CLOSED.  IN  THIS 
C  CASE,  THIS  SUBROUTINE  ORIENTS  THE  NORMAL  POINTING  INTO  THE 
C  SURROUNDING  MEDIUM.  THE  VOLUME  OF  THE  BODY  IS  ALSO  CALCULATED. 

C  THE  VOLUME  IS  COMPUTED  BY  USE  OF  THE  IDENTITY: 

C  VOLUME  =  THE  INTEGRAL  OVER  THE  SURFACE  BOUNDING  THE  VOLUME  OF  THE  X 
C  COMPONENT  OF  THE  SURFACE  NORMAL  TIMES  X  TIMES  THE 

C  DIFFERENTIAL  SURFACE  AREA. 

C - - - - - - - 

DIMENSION  DATNOD(3, NNODES) , J (3) ,NJ(3) ,DJ(3,3) 

INTEGER  NCONN(j, NEDGES) ,NB0UND(3 , NFACES) , ISTART ( NFACES+ 1 ) 

COMMON/VOL/VOLUME 

VOLUME=0 . 0 

DO  IS  IJ=  ISTART! I ) , ISTARTCI+1) -1 
CALL  FACEDG!NFACES,NBOUND,IJ,J) 

CALL  FACVTX (NCONN .NEDGES, J.NJ) 

X= (DATNOD (1 ,NJ( 1 ) ) +DATNOD(l ,N J (2) )+DATNOD (1 ,NJ(3)))/3.0 
CALL  VTXCRD (DATNOD , NNODES , NJ ,DJ) 

ARJ1=(DJ(2 ,2)-DJ(l ,2))*(DJ(3,3)-DJ(1 ,3))-(DJ(3,2)-DJ(l ,2))* 

$  (DJ(2,3)-DJ(1,3>) 

VOLUME=VOLUME+X* ARJ 1/2 . 0 
15  CONTINUE 

IF(VOLUME  LT.O.O)  THEN 

DO  16  116=  ISTART(I) , ISTART(I  +  1 ) -  1 
IDUMMY=NBOUND( 1 ,116) 
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NBOUND (1 ,I16)=NBOUND(2,I16) 
NBQUND(2 , I 16)=IDUMMY 
16  CONTINUE 
END  IF 
RETURN 
END 


A. 28  FACOUT 

SUBROUTINE  FACOUT(NCONN , NBOUND , ISTART , I . NEDGES , NFACES , 

$  NBODYS  .DATNOD .NNODES) 

C - - - - 

C  THIS  SUBROUTINE  PRINTS  THE  EDGES  AND  THE  VERTICES  OF  EACH  FACE. 

C  INPUT: 

NCONN  HAS  THE  VERTICIES  AND  THE  MULTIPLICITY  FACTOR  FOR  EACH  EDGE. 
NBOUND  HAS  THE  EDGES  FOR  EACH  FACE. 

C  ISTART  HAS  THE  BEGINNING  FACES  FOR  EACH  BODY. 

C  I  IS  THE  PRESENT  BODY. 

C  NEDGES  IS  THE  TOTAL  NUMBER  OF  EDGES. 

C  NFACES  IS  THE  TOTAL  NUMBER  OF  FACES. 

C  NBODYS  IS  THE  TOTAL  NUMBER  OF  BODYS. 


INTEGER  NC0NNC3, NEDGES) , NB0UND(3 .NFACES) , ISTART(NBODYS+l ) ,NV(3) 
$  ,NE(3) 

REAL  DATN0D(3 , NNODES)  ,DN(3,3) 

CHARACTER* 1  IG 
COMMON /IGUAN A/ IG 
WRITE(3, 102)1 

102  F0RMATC//20X, ’FOR  BODY  NUMBER 13/) 

DO  10  I10=ISTART(I) , ISTART(I  + 1 ) - 1 
C  OBTAIN  THE  EDGES  OF  THE  TRIANGLE 
DO  2  1=1,3 

2  NB(I)=NB0UND(I ,110) 

C  OBTAIN  THE  VERTICES  OF  THE  TRIANGLE 
CALL  FACVTXCNCONN, NEDGES, NB,NV) 

WRITE (3, 98)110, NBOUND (1,110), NBOUND (2 ,110) , NBOUND (3 , I 10) , 

$  NV(1) , NV (2) ,NV(3) 

C 

C  TRANSFER  INPUT  DATA  TO  NEC  FORMAT 
C 

IF(IG.EQ. ’ Y ’ )THEN 

C  OBTAIN  THE  COORDINATES  OF  THE  TRIANGLE’S  VERTICIES 
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CALL  VTXCRD (DATNOD , NNODES  , NV , DN) 

58  WRITE( 12 , 112) DN (1,1) , DN ( 1 , 2) , DN ( 1 , 3) , DN(2 , 1 ) , 

$  DN(2,2) ,DN(2,3) 

WRITE ( 12 , 113) DN (3,1) ,DN(3,2) ,DN(3,3) 

ENDIF 

112  FORMATC’SP’ ,7X, ’2’ ,6F10.4) 

113  FORMAT ( ’SC ’ ,7X , ’ 2 ’ ,3F1C . 4) 

C 

10  CONTINUE 

98  F0RMAT(1X, ’FACE’ ,14,  ’  HAS  EDGES \ 314 , ’  WITH  VERTICES ’ ,314) 
C  TRANSFER  INPUT  DATA  TO  NEC  FORMAT 

C 

IF(IG.EQ. ’Y’)THEN 
WRITE( 12,116) 

116  FORMAT ( ’GE’ ) 

WRITE ( 12,117) 

117  FORMAT(’EN') 

ENDIF 

RETURN 

END 


A. 29  ADBMUL 

SUBROUTINE  ADBMUL (NNODES , NEDGES , DATNOD , NCONN , NUNKNB) 

C - - - - - 

C  ADJUST  MULTIPLICITY  OF  BODY  EDGE 
C  INPUT: 

C  NNODES=THE  NUMBER  OF  BODY  NODES. 

C  NEDGES=THE  NUMBER  OF  EDGES. 

C  NUNKNB=THE  NUMBER  OF  BODY  UNKNOWNS  BEFORE  CONSIDERING  THE 
C  GROUND  PLANE  ATTACHMENTS. 

C  DATNOD (I, N)=THE  X,Y,Z  COMPONENTS(I  =  1 ,2,3)  OF  THE  NTH  NODE  N=l, NNODES. 
C  NCONN(I.IE)  1=1. 2, 3:  EDGE  IE  (IE=1 .NEDGES)  RUNS  FROM  NODE  NCONN(l.IE) 
C  TO  NCONN (2, IE)  AND  HAS  MULTIPLICITY  NCONN (3 , IE) (BEFORE  ANY  GROUND 
C  PLANE  ATTACHMENTS  ARE  CONSIDERED) . 

C 

C  OUTPUT: 

C  FOR  EACH  EDGE  IE  THAT  IS  CONNECTED  TO  A  P.E.C.  GROUND  PLANE  AND  IS 
C  NOT  CONNECTED  TO  A  P.M.C.  GROUND  PLANE,  ITS  MULTIPLICITY (NCONN (IE, 3) ) 
C  AND  THE  NUMBER  OF  BODY  UNKNOWNS (NUNKNB)  ARE  INCRIMENTED  BY  1. 

C  THE  EDGE  VERTEX  CONNECTION  LIST  WrTF  EDGE  MGLTTr>L TCTIES  IS  OUTPUTTED 
C  AFTER  ACCOUNTING  FOR  ALL  GROUND  PLANE  ATTACHMENTS. 
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DIMENSION  DATN0D(3 .NNODES)  , NCONN (3 , NEDGES) , IGNDP (3) ,D1(3) ,  (3) , 

$  DM(3) 

COMMON/GPLANE/NGNDP , IGNDP 
IF (NGVDP . GT . 0) THEN 
EDGED=1 . E-4 
DO  100  IE=1, NEDGES 
N1=NC0NN(1 ,IE) 

N2=NC0NN (2 , IE) 

DO  2  1=1,3 

D1(I ) = ABS (DATNOD ( I  ,  N 1 ) ) 

D2 ( I ) =ABS (DATNOD (I , N2)  ) 

2  DM ( I ) =AMAX 1 (D 1 (I ) ,D2(I)) 

IX=0 

IY=0 

IZ=0 

IF(DM(1) . LE . EDGED) IX=IGNDP ( 1 ) 

IFCIX.NE. 1)THEN 

IF(DM(2) . LE . EDGED) IY=IGNDP(2) 

IF(IY.NE. 1 .AND. DM (3) . LE . EDGED) IZ=IGNDP (3) 

ENDIF 

IMAX=AMAXO(IX,IY,IZ) 

IF ( IMAX . NE . 1 ) THEN 
IMIN=AMINO(IX,IY,IZ) 

NUNKNB=NUNKNB- IMIN 
NCONN (3 , IE)=NCONN (3,IE)-IMIN 
ENDIF 

100  CONTINUE 
ENDIF 

WRITE(3 , 29) 

29  F0RMAT(//14X, ’EDGE-VERTEX  CONNECTION  LIST’/) 

DO  40  1=1, NEDGES 

WRITE(3,331)I,NC0NN(1,I)  , NCONN (2 , 1 ) , NCONN (3 , 1 ) 

40  CONTINUE 

331  FORMAT (3X , ’ EDGE ’ , 14  ,  ’  GOES  FROM  VERTEX’, 14,’  TO  VERTEX’, 14, 

$’  MULT= ’ ,12) 

RETURN 

END 


A. 30  BODPAR 

SUBROUTINE  BODPARCDA'l  NOD . NCONN , NBOUND , NNODES , NEDGES , NFACES , NUNKNB) 
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c - 

C  COMPUTE  PARAMETERS  ASSOCIATED  WITH  BODY 
C  INPUT: 

C  DATNOD(I.J)  1=1, 2,3  ARE  THE  X,Y,Z  COORDINATES  OF  THE  Jin  NODE. 

C  NC0NN(3,J):  EDGE  J  RUNS  FROM  NODE  NCQNN(1,J)  TO  NODE  NCONN(2,J) 

C  NCONN (3  ,  J)  IS  THE  MULTIPLICITY  OF  THE  JTH  EDGE. 

C  NBOUND (I , J) :  CONTAINS  THE  ITH  EDGE  OF  THE  JTH  FACE  1=1, 2, 3. 

C  NNODES  =  THE  NUMBER  OF  BODY  NODES. 

C  NEDGES  =  THE  NUMBER  OF  EDGES. 

C  NFACES  =  THE  NUMBER  OF  FACES. 

C  NUNKNB  =  THE  NUMBER  OF  BODY  UNKNOWNS. 

C 

C  OUTPUT: 

C  AVEDGE  =  THE  AVERAGE  EDGE  LENGTH (METERS**2)  INCLUDING  MULTIPLICITY. 

C  EDGEMX  =  THE  MAXIMUN  EDGE  LENGTH (METERS) . 

C  MXEDGE  =  THE  EDGE  NUMBER  OF  THE  EDGE  WITH  LENGTH  EDGEMX. 

C  EDGEMN  =  THE  MINIMUM  EDGE  LENGTH ( METERS ) . 

C  MNEDGE  =  THE  EDGE  NUMBER  OF  THE  EDGE  WITH  LENCTH  EDGEMN. 

C  TAREA  =  THE  SURFACE  AREA  OF  THE  SCATTER (METERS* *2) :FOR  THIN 
C  STRUCTURES  ONLY  ONE  SIDE  IS  CONSIDERED  IN  THE  SURFACE  AREA. 

C  AVAREA  =  THE  AVERAGE  AREA  OF  THE  FACES. 

C  MXAREA  =  THE  NUMBER  OF  THE  FACE  WITH  THE  MAXIMUN  AREA (AREAMX) . 

C  MNAREA  =  THE  NUMBER  OF  THE  FACE  WITH  THE  MINIMUM  AREA ( AREAMN)  . 

C  RATIO  =  THE  MINIMUM  HEIGHT  TO  BASE  RATIO  OVER  ALL  FACES. 

C  MNRTIO  =  THE  FACE  NUMBER  THAT  HAS  A  HEIGHT  TO  BASE  RATIO  OF  "RATIO". 

C-- - - - - - - . - . . 

COMMON/PARAMS/AVEDGE , EDGEMX , MXEDGE .EDGEMN , MNEDGE ,TAREA , AVAREA , 

$  MXAREA , MNAREA , AREAMX , AREAMN , RATI D , MNRTIO 

COMMON/MCKVAL/VALMAX ,  VALMIN 

DIMENSION  DATN0D(3, NNODES) ,BL(3,3) ,AL(3) ,RS(3) ,HTB(3) ,DV(3) ,DX(3) , 
$  DN(3 ,3) 

INTEGER  NCONN (3, NEDGES) .NBOUND (3 .NFACES) , IS(3) ,NV(3) 

SIZE(X ,Y,Z)=SQRT(X*X+Y*Y+Z*Z) 

SEDGL=0 
EDGEMX=VALMIN 
EDGEMN=VALMAX 
DO  20  IE=1 .NEDGES 
MULT=NCONN (3 , IE) 

N 1=NC0NN ( 1 , IE) 

N2=NC0NN (2 , IE) 

DO  2  1=1,3 

2  DX(I)=DATN0D(I.N2)-DATN0D(I ,N1) 

EDGL=SIZE(DX( 1 )  ,DX(2)  ,DX(3)) 

SEDGL=SEDGL+MULT*EDGL 
IF (EDGL . GT . EDGEMX) THEN 
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EDGEMX=EDGL 

MXEDGE=IE 

ENDIF 

IF (EDGE . LT . EDGEMN)TH£N 
EDGEMN=EDGL 
MNEDGE=IE 
ENDIF 

20  CONTINUE 

AVEDG£=SEDGL/NUNKN8 
RATIO=VALMAX 
AREAMX=V  ALMIN 
AREAMN=VALMAX 
TAREA=0 . 

DO  40  IFACE=1 , NFACES 
DO  4  1=1,3 

4  IS ( I ) =NBOUND (I , IFACE) 

CALL  FACVTXCNCONN .NEDGES , IS ,NV) 

CALL  VTXCRD  (DATNOD  ,  ‘INODES  ,  NV  ,  DN) 

DO  6  1=1,3 
IP1=M0D(I ,3)+l 
IMl=MOD(I+l ,3)+l 
DO  6  J=1 ,3 

5  DL(I , J)=DN(IM1 ,J)-DN(IPl,J) 

DO  8  J=1 ,3 
JP 1  =  M0D ( J  ,  3 )  +  1 
JM 1 =MOD ( J+ 1 , 3) + 1 

8  DV(J)=DL(2, JP1)»DL(1,  JM1) -DL(2 , JM1) *DL( 1 ,  JP1) 

AREA2=SIZE(DV (1) ,DV(2) ,DV(3)) 

AREA=.5*AREA2 
DO  3  1=1,3 

AL(I)=SIZE(DL(1 , 1) ,DL(1 ,2) ,DL(I ,3) ) 
RS(I)=AL(I)*AL(I) 

3  HTB(I)=AREA2/RS(I) 

HTBMIN=AMIN1(HTB(1) ,HTB(2) ,HTB(3)) 
TAREA=TAREA+AREA 
I F ( ARE A . GT . ARE AMX ) THEN 
MXAREA=IFACE 
AREAMX=AREA 
ENDIF 

IF (AREA . LT. AREAMfOTHEN 
MNAREA=IFACE 
AREAMN=AREA 
F.NDIF 

IF (HTBMIN. IT. RATIO) THEN 
MNRTIO=IFACE 
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RATIO=HTBMIN 

ENCIF 

40  CONTINUE 

AVAREA=TAREA/NFACES 
WRITEC3, 110) 

110  F0RMAT(//2SX, ’BODY  PARAMETER  LIST’/) 

WRITE(3, 111)  NNODES , NEDGES , NFACES , NUNKNB 

111  FORMAT! 10X, ’NUMBER  OF  VERTICES=  ,14, 

$/10X, ’NUMBER  OF  EDGES=’,I4, 

$/10X, ’NUMBER  OF  FACES=’,I4, 

S/10X, ’NUMBER  OF  EDGES  INCLUDING  MULTIPLICITY= ’,14) 

WRITE(3 , 205) 

205  F0RMATC//2SX, ’MODELING  PARAMETER  LIST  (METERS)’/) 

WRITE(3 , 206)  TAREA 

206  FORMAT! 10X, ’SURFACE  AREA  OF  THE  SCATTERER= ’ , E12 . 5 , IX , ’ SQ .METERS ’ ) 
WRITE (3 , 209)  AVEDGE .MXEDGE .EDGEMX .MNEDGE .EDGEMN 

209  FORMAT(10X, ’AVERAGE  EDGE  LENGTH- ’, 1E1 2 . 5 , IX ,’ METERS ’ , 

$/10X, ’MAXIMUM  EDGE  LENGTH (EDGE  NO. ’ ,13, IX,  ’  )= ’ ,E12.5, IX. ’METERS' , 
$/10X, ’MINIMUM  EDGE  LENGTH (EDGE  NO. ’ , 13, IX , ’ )= ’ ,E12 .5. IX , ’METERS’) 
WRITE(3 ,210)  AVAREA .MXAREA , AREAMX .MNAREA , AREAMN 

210  FORMAT! 10X, ’AVERAGE  FACE  AREA  = ’  ,£12 . 5 , IX , ’ SO .METERS ’  , / 10X , 

$ ’ MAXIMUM  FACE  AREA  (FACE  NO . ’ , 14 , IX , ’ ) = ’ ,E12 . 5 , IX , ’ SQ . METERS ’ , / 
$10X, ’MINIMUM  FACE  AREA  (FACE  NO .’, 14 , IX ,’)  =  ’, El2 . 5 , IX  ,’ SQ . METERS ’ ) 
WRITE(3 ,211)  MNRTIO, RATIO 

211  FORMAT! 10X, ’MINIMUM  FACE  HEIGHT  TO  BASE  RATIO  .FACE  NO.’, 

$14, IX,’)*' ,E11 .5) 

RETURN 

END 


A. 31  EDGFAC 

SUBROUTINE  EDGFAC(NCONN , NEDGES , NBOUND , NFACES , IEDGr , MULTI ) 

C - 

C  MAPPING  FROM  EDGE  TO  FACE 
C  INPUT: 

C  EDGE  IE  RUNS  FROM  VERTEX  NCONN(l.IE)  TO  VERTEX  N CONN (2 , IE) 

C  AND  HAS  MULTIPLICITY  NC0NN(3, IE)  . 

C  FACE  IFACE  HAS  EDGES  NBOUND (J , IF ACE)  J=1  2,3 
C  MULTI  IS  SET  IN  THE  MAIN  PROGRAM  AND  MULTI - 1 . GE . THE 
C  MAXIMUM  MULTIPLICITY  OF  ANY  EDGE. 

C  OUTPUT : 

C  ARRAY  IEDGF 
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C  FOR  AN  EDGE  WITH  MULTIPLICITY  MULT 

C  IEDGF(2, IE)=THE  NEXT  LOWEST  NUMBERED  FACE  CONNECTED  TO  IE 

C  . 

C  IEGDFCMM , IE)=THE  LAST  FACE  CONNECTED  TO  IE. 

C  WHERE  MM  IS  THE  NUMBER  OF  FACES  CONNECTED  TO  EDGE  IE. 

C - 

INTEGER  NCONN (3 , NEDGES) , NB0UND(3 .NFACES) , IEDGF (MULTI , NEDGES) 
DO  5  IE=1, NEDGES 
DO  6  M=l, MULTI 
IEDGF (M , IE) =0 
6  CONTINUE 

5  CONTINUE 

DO  100  IE=1 .NEDGES 
MULTE1=NC0NN (3 , IE)  + 1 
M=0 

DO  SO  IF=1, NFACES 

IF (M . GE . MULTE1 ) GO  TO  100 

IF(IE.EQ.NB0UND(1 .IF) .OR. IE . EQ . NB0UND(2 . IF) .OR.IE.EQ . 

$  N BOUND (3 , IF) )THEN 
M=M+ 1 

IEDGF (M , IE) =IF 
ENDIF 
CONTINUE 
0  CONTINUE 

DO  200  I E=l, NEDGES 
W'RITE(3 ,201)  IE 

WRITE (3, *)( IEDGF (M,:e:  ,M=1  ,  NCCNN (3 . IE)  + 1 ) 

200  CONTINUE 

20 1  FORMAT! IX, ’EDGE’  ,14,  ’  IS  ATTACHED  TO  FACES’) 

RETURN 

END 


A. 32  SOLTN 

SUBROUTINE  SOLTN (CZ , CV , NUN K NT , IPVT , CWORK , D ATNOD , NCONN , NBOUNO , 

$  NEDGES , NFACES .NNODES , IEDGF , MULTI , EXCITE , NEXCIT , 

$  MXFREQ , INDSUM , NUNKNB , NWNOD . NWSEG , NWUNKS , WNODE , MULTW , NSEGC , 

&  WSEGH ,RAD , INSEG  ,  NJCT , MN JUN , NWJUN , NBJUN , 

ftWIRSUM , ANG , MN JFACE , N JFACE , MIFACE , MXWMLT , NWWVLT , NODVLT , CWWVLT , 

&IPAT.ITOT) 


C  IN  THIS  SUBROUTINE,  THE  MATRIX  EQUATION  ZI=V  IS  SOLVED. 
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IMPLICIT  COMPLEX  (C) 

C 

REAL  ANG(MNJUN.MNJFACE) 

INTEGER  NJFACE(MNJUN.MNJFACE) ,M1FACE(MNJUN) , NSOUN (MNOUN) , 

4  NWJUN (MNJUN) 

C 

DIMENSION  WN0DE(3,NWN0D) ,WSEGH(3 .NWSEG) ,RAD(NWSEG) 

INTEGER  MULTW(NWNOD) ,NSEGC(2,NVSEG) .WIRSUM05WHOD) , 

>  INSEGCMXWMLT+l .NWNOD) 

COMPLEX  CZCNUNKNT, NUNKNT) .UV(NUHKNT) .CWORK(NUNKNT) 

COMPLEX  HTHETA , HPHI , ETHETA , EPHI 
REAL  LAMBDA,  K,  M'J,  IMP 

DIMENSION  DATNOD(3 .NNODES) ,EXCITEV7 , NEXCIT) 

INTEGER  NCONN (3 , NEDGES ) , HB0UNDC3 , NFACES) , IEDGF (MULTI , NEDGES 
JIPVT (NUNKNT) , INDSUM(NEDGES) 

C  FOR  WIRE 

INTEGER  NODVLT(NWWVLT) 

COMPLEX  CWWVLT(NWWVLT) 

LOGICAL  PRINTC 
CHARACTER* 1  IC 
C 

COMMCN/LOOP/PRINTC ,TKEV , IETHEV , MLTTHV 
CCMMON/PARAM/THETA ,PHI , IFIELD 
CCMMON7WAVE/OMEGA, LAMBDA, K 
COMMON /MED IUM/DEG2R AD ,EPSLCN , MU , IMP ,SL ,FI 
COMMCN/INC/HTHETA , HPHI , ETHETA , EF HI 
COMMON/FINDIF/NNFLD ,DX ,DY ,DZ 
CCMMON/F/FREQ 
CCMMON/CPU/TGG ,  IC 
DC  20  IFREQ=1 .MXFREQ 
C  READ  IN  THE  FREQUENCY  IN  HERTZ. 

READ(  2,*)  FREQ 
IF (FREQ . EQ . -1 . ) STOP 
WRITE (3, 999) FREQ 
WRITE (4, 999) FREQ 

999  FORMAT ( IX , ’ FREQ= ’ , 1PE12 . 5) 

C  LAM8DA=THE  WAVELENGTH. 

C  K=THE  WAVE  NUMBER. 

C  OMEGA=THE  ANGULAR  FREQUENCY. 

0KEGA=2 . *PI*FREQ 
K=OMEGA/SL 
LAMBDA=SL/FREQ 
IFIELD=0 

DO  11  J=l, NUNKNT 
CO  10  1=1, NUNKNT 


104 


CZCI.JXC. 0,0.0) 

10  CONTINUE 

11  CONTINUE 

DO  40  140=1 .NEXCIT 
IFIELD=IFIELD+ 1 

C  INITIALIZE  THE  VOLTAGE  VECTORS. 

DO  14  1=1 , NUNKNT 

CV(I)=(0. 0,0.0) 

14  CONTINUE 

IF(EXCITE(1, NEXCIT). EQ.O.)  THEN 
C  IF  EXCITATION  IS  A  PLANE  WAVE 

C  HTHETA  AND  HPHI  REPRESENT  THE  AMPLITUDE  OF  THE  INCIDENT  PLANE  WAVE. 
HTHETA=CMPLX (EXCITE (4, 140) , EXCITE(S . 140) ) 

HPHI=CMFLX (EXCITE (6 , 140) ,EXCITE(7 , 140) ) 

ETHETA=-IMP*HPh'I 
EPHI=IMP*HTKETA 
TKETA=EXCITE(2 , I40)*DEG2RAD 
PKI=EXCITE(3,I40)*DEG2RAD 
ELSE 

:  IF  EXCITATION  IS  A  VOLTAGE  SOURCE 
IF (N.TCT.GE.O)  THEN 

CALL  ViCUMULCNWNOO .NUNKNB .KULTW ,WIRSUM) 

00  144  I V= i , NWWVLT 
NCOV=NC'OVLT  ( IV) 

N?.2W  =  w:?.?VM  (N0rv)+  1 
144  CV ( NROW ) = cww VLT ( I V ) 

END  IF 
ENDIF 

C  INPUT: 

C  MNJUN:  NUMBER  CF  JUNCTION 

C  NW  UJN ( I ) : WIRE  NODE  NUMBER  OF  THE  IT«  JUNCTION  1  =  1. MNJUN 

C  NB„ JN(I) :BODY  NODE  NUMBER  OF  THE  ITH  JUNCTION  1=1, MNJUN 

C  MNJr ACE : MAXIMUN  NUMBER  OF  FACE  ATTACHED  TO  JUNCTION 

c  ouTPin-: 

C  NJFACECI ,  J) -.FACE  NUMBER  OF  THE  JTH  FACE  ATTACHED  TO  THE  ITH  JUNCTIC 
C  1  =  1  .MNJUN ,  J=1 ,MIFACE(I) 

C  MIFACEC I ) .MAXIMUN  NUMBER  OF  FACE  ATTACHED  TO  THE  ITH  JUNCTION 

C  ANG(I ,J) : ANGLE  FACTOR  OF  THE  JTH  LATCH  ATTACHED  TO  THE  ITH  JUNCTION 


IFCNJCT.EQ. 1 ) THEN 


C  COMPUTE  PARAMETERS  ASSOCIATE  WITH  JUNCTIONS 

C 

CALL  J  UN  F  A  C ( N  B  JUN , MN  JUN . NB  OUN  D , N  F A  CES , N  C  0  N  N , NEDC  ES , 
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&  N JFACE .MNJFACE , MIFACE) 

C ALL  J ANGLE (DATNOD , NNODES , NB JUN , MNJUN , NBOUND , K FACES , NCONN , 

&  NEDGES .NJFACE, MNJFACE, MIFACE, ANG) 

ENDIF 

C 

CALL  ECUMUL(NCONN  ,  INDSUM  ,  NEDGES) 

IF(NJCT.GE.O)  THEN 
C 

C  FILL  ZWW,  ZBW ,  AND  ZJW  OF  THE  IMPEDANCE  MATRIX 
C 

CALL  WIRMAN  (IFREQ  ,CZ  ,  CV  ,  NUNKNT  .NUNKNB  ,  N'WNOD  ,  f.'WSEG  ,  NWUNKS  , 
a  WNGDE , MULTW , NSEGC , WSEGH , RAD , INSEG , WIRSUM , DATNOD , 
a  NCONN , NBOUND .NNODES , NEDGES , N FACES , IEDGF , MULTI , INDSUM , NJCT , MNJUN , 
a  NWJUN  ,NBJUN,N JFACE, MNJFACE, MIFACE, ANG, M.XWMLT , IPAT) 

ENDIF 

FILL  ZB5  CF  THE  IMPEDANCE  MATRIX 
C 

CALL  ZBB (DATNOD, NCONN , NBOUND , IEDGF .MULTI , NNODES , NEDGES , 

$  NFACES , NUNKNT , CZ , CV , INDSUM , N JCT , MNJUN , MNJFACE , NWNCD .WIRSUM , 
a  ANG, N JFACE, MIFACE, NWJUN  .NBJ’JN) 

n 

Z  FILL  ZW5  OF  THE  IMPEDANCE  MATRIX 
IF'.NJCT.GE.C)  THEN 

CALL  ZW3 (DATNOD, NCONN, NBOUND .IEDGF, MULT: , NN GOES , NEDGES , 
f  NFACES  ,  NUNKNT  ,  CZ  ,  INDSUM  ,  NWNCD ,  NWSEG  ,'WNDDE  ,  NSEGC  ,  WSEGH  , 

$  MXWMLT, MULTW, INSEG, WIRSUM. NUNKNB, NJCT, MNJUN, MNJFACE, ANG , 

a  NJFACE, MIFACE, NWJUN ,N3JUN) 

ENDIF 

C 

WRITE(6  ,  *)  ’  ’ 

WRITE(6  ,  * )  ’  ***  MATRIX  FILLING  COMPLETED  ***’ 

C 

IFCIC.EQ. ’ Y ’ )THEN 
C 

C  CALL  RUNTIME  LIBRARY 

c 

IERR=LIB$STAT. TIMER!  2,  ITG1 ,  ) 

TG2=FL0AT(ITGl)/6O00 . 

TGF=TG2-TGG 

r 

WRITE(6.0 ’CPUTIME  FOR  MATRIX  FILLING  =  ’ ,TJF  ,  ’  MINUTES’ 

ENDIF 


ion 


WRITE(6 , *)  ’  ’ 

WRITEC6,*)’  EXECUTION  . 

C 

C  CALL  ROUTINES  TU  SOLVE  MATRIX  EQUATION 

C  CGEFA  AND  CGESL  ARE  SUBROUTINES  IN  LINPACK  LIBRARY 

C 

IFCIFIELD.EQ . 1 )CALL  CGEFA (CZ , NUNKNT , NUNKNT , IPVT , INFO) 
IF(INFO.EQ.O)  THEN 

CALL  CGESL (CZ , NUNKNT , NUNKNT , IPVT , CV ,0) 

ELSE 

WRITECl ,8) 

8  F0RMATC23H  THE  MATRIX  IS  SINGULAR) 

STOP 

ENDIF 

777  CONTINUE 

WRITE(6  ,  *)  ’  ’ 

WRITE(6 , * ) ’ ***  MATRIX  EQUATION  SOLVED  ***’ 

WRITE (6  ,  *)  ’  ’ 

C 

IFCIC.EQ.  ’ Y ’ )THEN 
C 

C  CALL  RUNTIME  LIBRARY 

IERR=LIBJ STAT. TIMER (  2,  ITG2,  ) 

TG3=FLOAT(ITG2)/6000. 

TGS=TG3-TG2 


C 

C 

C 

c 


WRITE(6,*> ’CPUTIME  FOR  MATRIX  SOLVING  =  \TCS,’  MINUTES’ 
WRITE(6 , *)  ’  ’ 

WRITEC6,*)'  TOTAL  UNKNOWN  NUMBER  =  ’ .NUNKNT 

WRITEC6,*)’  ’ 

WRITEC6  ,*)  ’  TOTAL  CPUTIME  =  ’  ,TG3.’  MINUTES’ 

ENDIF 

WRITEC6  ,  »)  ’  ’ 

WRITE(6  ,*)  ’  ***  OUTPUT  DATA  FOR  BODIES  IN  F0ROO3.DAT  *  +  *’ 
IF(NJCT.GE.0)WRITE(6,*) ’*♦»  OUTPUT  DATA  FOR  WIRES  IN  FOR009 


WRITEC6.*) ’***  CURRENTS  ON  SYSTEM  IN  F0R004.DAT  ***’ 


IF (PRINTC)THEN 


WRITE  THE  CURRENT  DENSITY  TABLE. 


WRITE(3 ,22) 
WRITEC4.22) 
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22  F0RMAT(//28X, ’SURFACE  CURRENTS’/) 

WRITE(3 ,23) 

WRITE(4,23) 

23  FORMATClX, ’EDGE  NUMBER  ’, 13X CURRENT  DENSITY  (AMPS/METER)’) 
WRITE(3 , 24) 

WRITE(4,24) 

24  FORMAT ( 14X , ’ REAL ’ , 9X , ’ IMAGINARY ’ ,7X, 'MAGNITUDE ’ ,7X, 

$ ’PHASE(DEG) ’ ) 

C0=(0. ,0. ) 

K1=0 

DO  SO  150=1, NEDGES 

IF (NC0NN(3 ,150) . EQ . 0)TKEN 
WRITEC3, 101)150, CO, 0. 

WRITE(4, 101)150, CO, 0. 

A=0 

ELSE 

DO  35  135=1 ,NC0NN(3, 150) 

K1=K1+1 

RA1=REAL(CV(K1) ) 

RA2=AIMAG (CV(K1 ) ) 

RA3=CABS(CV (Kl) ) 

EPS=l.E-7 

IF(ABS(RA1) . LT .EPS) THEN 
RA4=90 . 

ELSE 

RA4=ATAN2 (RA2 , RA 1 ) /DEG2RAD 
ENDIF 

WRITE (3 ,101)  150 ,RA 1 , RA2 , RA3 , RA4 
WRITE(4 , 101)  150 ,RA1 ,RA2 ,RA3 ,RA4 
35  CONTINUE 

ENDIF 

50  CONTINUE 

101  FORMAT (2X ,I4,2X,3(2X,E12.5,2X) , F12 . 3) 

ENDIF 

C 

C  PRINT  CURRENTS  ON  THE  WIRES 
C 

CALL  WIROUT (CV , NUNKNT , NUNKNB , MULTW  , NWNOD ) 

C 

40  CONTINUE 


COMPUTE  FAR  FIELD 
C 

IF(IPAT.GT.O)  THEN 
C 


CALL  FATTEN (DATNOD , NCONN , NBOUND , IEDGF , MULTI , NNODES .WIRSUM , 
$NEDGES , NF ACES , NUNKNT , CV , INDSUM , IPAT , N JCT , MN JUN , MNJFACE , NWNOD , 
SANG , N JF ACE , MI FACE , NW JUN , NB JUN , MXWMLT , NWSEG , NUNKNB , WNODE , MULTW , 
SNSEGC , WSEGH , RAD , INSEG) 

C 

WRITEC6  ,  *) ’ ***  PATTERN  OUTPUT  IN  FOROIO.DAT  ***’ 

C 

END  IF 


C  COMPUTE  CHARGE  DENSITY 

C 

IF (ITOT . GT . 0)THEN 

C 

CALL  CHARGE (N JCT . CV , DATNOD , NCONN , NBOUND , NNODES , NEDGES . 
SNFACFS , NUNKNT , NWNOD , NWSEG , NUNKN3 , WNODE .WIRSUM , NSEGC , MULTW , 
$  MN JUN , MNJFACE , ANG , NJFACE , MIFACE , NWJUN , NB JUN , INDSUM , 
SIEDGF, MULTI , INSEG, MXWMLT) 

C 

WRITE(6 , * ) ’ *»*  CHARGE  DENSITY  OUTPUT  IN  F0R011.DAT  ***’ 
ENDIF 

C - - - - - - - - 

10  CONTINUE 
RETURN 
END 


A. 33  WIRMUL 

SUBROUTINE  WIRMUL (N JCT .MXWMLT, NWNOD. NWSEG .NSEGC .NWUNKS .MULTW , 
St  INSEG, MNJUN, NWJUN) 

C - - - - - 

C  FIND  MULTIPLICITY  FOR  EACH  NODE 

*  INPUT: 

*  MXWMLT=MAXIMUM  MULTIPLICITY  OF  ANY  WIRE  NODE. 

*  NWNOD=NlTMBER  OF  WIRE  NODES. 

*  NWSEG=NUMEER  OF  WIRE  SEGMENTS. 

*  NSEGC (J , N )  J+1,2  N=l, NWNOD 

*  THE  NTH  WIRE  SEGMENT  RUNS  FROM  NODE  NSEGC(l.N)  TO  NSEGCC2.N) . 

*  OUTPUT: 

*  NWUNKS=TKE  NUMBER  OF  WIRE  UNKNOWNS. 

*  MULTW (N)=THE  MULTIPLICITY  OF  THE  NTH  WIRE  NODE , N= 1  .....  NWNOD  . 

*  INSEG(M.N)  M=1 , . . . , MULTW (N)+l  ARE  THE  NUMBERS  OF  THE  SEGMENTS 
»  (IN  INCREASING  ORDER)THAT  ARE  ATTACHED  TO  THE  NTH  NODE. 
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DIMENSION  MULTW(NWNOD) , NSEGC (2 , NWSEG) , INSEG(MXWMLT+1 ,NWN0D) 
&  ,  NWJUN(MNJUN) 

NWUNKS=0 
DO  1  N= 1 , NWNOD 
MULTW (N ) =- 1 
1  CONTINUE 

DO  6  N=l, NWNOD 
DC  S  J=1 ,MXWMLT+1 
INSEG(J,N)=0 

5  CONTINUE 

6  CONTINUE 
DO  100  N=1 .NWNOD 
MULTW (N)=-l 

ADD  1  TO  MULTW (N)  IF  N  IS  A  JUNCTION  NODE 

IF (NJCT - EQ . 1 )  THEN 
DO  11  NJ-l.MNJUN 
11  IF (N . EC . NW JUN (N J) ) MULTW (N) =0 

ENDIF 

n 

DO  SO  NS=1, NWSEG 

IF  (NSEGC ( 1 ,  NS)  .  EQ  .  N  .  OP. .  NSEGC ',2  ,NS)  .  EQ  .  N',  THEN 
MULTW ( N ) = MULTW ( N )  + 1 
M=MULTW(N)+1 
INSEG(M,N)=NS 
ENDIF 

SO  CONTINUE 

NWUNKS=NWUNKS+MULTW(N) 

100  CONTINUE 

WRITE(9 ,  *) ’  TOTAL  UNKNOWN  NUMBER  =  ’ .NWUNKS 
WRITE(9 , *) ’  ’ 

WRITE (9 ,*) '  NODE#  MULTIPLICITY’ 

DO  60  J=l, NWNOD 

WRITE ( 9 , * ) J , MULTW ( J ) 

60  CONTINUE 

DO  70  N=l, NWNOD 
DO  65  J=1 .MXWMLT+l 

WRITE (9 , *)N , J , INSEG  < J ,N) 

65  CONTINUE 
70  CONTINUE 
RETURN 
END 
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A. 34  EDGMUL 


SUBROUTINE  EDGMUL (IEDGF , MULTI , NEDGES , MULTE , IEDGE , IFACE , JE1 , JE2) 

C - 

C  INPUT: 

C  IEDGF  FROM  ROUTINE  EDGFAC  CONTAINS  THE  FACES  CONNECTED  TO  EACH  EDGE. 
C  MULT1=  THE  MAXIMUM  MULTIPLICITY  OF  ANY  EDGE  +1. 

C  NEDGES=  THE  NUMBER  OF  EDGES. 

C  MULTE  IS  THE  MULTIPLICITY  OF  EDGE  IEGDE . 

IEDGE  IS  THE  EDGE  NUMBER. 

IFACE  IS  THE  FACE  NUMBER. 

C  OUTPUT :JE1  JG2 

C  IF  IFACE  IS  THE  LOWEST  NUMBERED  FACE  ATTACHED  TO  IEDGE  THEN 
C  JE1=1  AND  JE2=MULTE 

C  ELSEIF  IFACE  IS  THE  ITH  FACE  ATTACHEL  TO  IEDGE  THEN 
C  JE1=JE2=I-1 

C . . . . - . - . — - - 

INTEGER  IEDGF (MULTI , NEDGES) 

IF (IEDGF (1, IEDGE' . EQ . IFACE)THEN 
JE1  =  1 
JE2=MULTE 
ELSE 

M1=MULTE+1 
DC  10  1=2, Ml 

lFUFACE.EQ.IEDGFCI,  IEDGE)  )Th£N 

11=1-1 
JE1=I 1 
JE2=I  1 
GO  TO  11 
ENDIF 

10  CONTINUE 

11  CONTINUE 
ENDIF 
RETURN 
END 
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A. 35  BCUMUL 


SUBROUTINE  BCUMULCNCONN , INDSUM , NEDGES) 

C— - - - - 

C  CUMULATE  MULTIPLICITY  OF  EDGE 
C  INPUT: 

C  NEDGES  =  THE  NUMBER  OF  EDGES. 

C  IE  =  A  SPECIFIC  EDGE  NUMBER  1 . LE . IE . LE . NEDGES . 

C  NCONN ( I ,  J)  1=1,2, 3:  THE  JTH  EDGE  RUNS  FROM  NODE  NCONN(l.J)  TO 
C  NC0NN(2,J)  AND  HAS  MULTIPLICITY  NC0NN(3,J)  (AFTER  ACCOUNTING 
C  FOR  ALL  GROUND  PLANE  ATTACHMENTS) . 

C 

C  OUTPUT: 

C  IND  =  THE  SUM  OF  THE  EDGE  MULTIPLICITIES  UP  TO  (BUT  NOT  INCLUDING) 

C  THE  CURRENT  EDGE (IE) . 

C--- - - - - - - - 

DIMENSION  NCONN (3, NEDGES) , INDSUM(NEDGES) 

INDSUM ( 1 ) =0 
DO  10  1=2, NEDGES 

INDSUM ( I ) =NCONN (3,I-1)+I NDSUM ( I - 1 ) 

10  CONTINUE 
RETURN 
END 


A. 36  FACED  G 


SUBROUTINE  FACEDG(NFACES .NBOUND , IFACE , IEDG) 

C - - - 

C  MAPPING  FROM  FACE  TO  EDGE 

INTEGER  NBOUND (3 ,NFACES) , IEDG (3) 

DO  2  1=1,3 

2  IEDG(I)=NBOUND(I, IFACE) 

RETURN 

END 


A. 37  FACVTX 

SUBROUTINE  FACVTX(NCONN .NEDGES , IE, NV) 
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c - - - 

C  MAPPING  FROM  FACE  TO  VERTEX 

INTEGER  NC0NN(3 .NEDGES) ,IE(3)  ,NV(3) 

IF (NCONN (1 , IE(2) ) . EQ . NCONN(l , IE(3) ) . OR. NCONN ( 1 , IE(2) ) .EQ. NCONN (2 , 
$IE(3)))THEN 

NV(1)=NC0NN(1,IE(2>) 

ELSE 

NV(l)=NCONN(2,IE(2)) 

ENDIF 

I F (NCONN (1 ,IE(1)) . EQ . NCONN ( 1 , IE(3) ) . OR. NCONN ( 1 , IE(1) ) .Eq. NCONN (2, 
$IE(3) ) )THEN 

NV(2)=NC0NN(1 ,IE(1)> 

ELSE 

NV(2)=NC0NN(2,IE(1) ) 

ENDIF 

IF (NCONN (1 ,IE(1)) .EQ. NCONN (1 ,IE(2)) .OR. NCONN ( 1 ,IE(1)) .EQ. NCONN (2, 
$IE(2) ) )THEN 

NV(3)=NC0NN(1 ,IE(1)) 

ELSE 

NV (3) =NCONN (2 , IE( 1 ) ) 

ENDIF 

RETURN 

END 


A. 38  VTXCRD 

SUBROUTINE  VTXCRD (DATNOD , NNODES , N , DN ) 

C - - - - - 

C  MAPPING  FROM  VERTEX  TO  COORDINATE 

DIMENSION  DATN0D(3, NNODES) ,N(3) ,DN(3,3) 

DO  2  1=1,3 
DO  2  J=1 ,3 

2  DN(I , J)=DATNOD( J  ,  N  (I)  ) 

RETURN 

END 


A. 39  WIRMAN 

SUBROUTINE  WIRMAN (IFREQ , CZ , CV , NUNKNT , NUNKNB , NWNOD , NWSEG , NWUNKS , 
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’  Nupy  ft 


T 


ft  WNODE , MULTW , NSEGC , WSEGH , RAD , INSEG , WI RSUM , DATNOD , 

ft  NCONN , NBOUND , NNODES , NEDGES , NFACES , IEDGF , MULTI , INDSUM , N JCT , MN JUN , 


ft  NWJUN , NB JUN , N JFACE , MN JFACE , MIFACE , ANG , MXWMLT , IPAT) 

C - - - - - - - - 

*  MXUNKN  =  MAXIMUM  NUMBER  OF  UNKNOWNS  EXPECTED.  * 

*  MXWNOD  =  MAXIMUM  NUMBER  OF  WIRE  NODES.  * 

*  MXWMLT  =  MAXIMUM  MULTIPLICITY  THAT  ANY  WIRE  NODE  MAY  HAVE.  * 

»  MXWSEG  =  MAXIMUM  NUMBER  OF  WIRE  SEGMENTS.  * 

*  MXWZN  =  MAXIMUM  NUMBER  OF  LUMPED  IMPEDENCES  ON  WIRES.  * 


*  MXWVLT  =  MAXIMUM  NUMBER  OF  DELTA  GAP  VOLTAGE  SOURCES  ON  THE  WIRES.  • 

*  MXFREQ  =  MAXIMUM  NUMBER  OF  FREQUENCIES  EXPECTED.  * 

*  MXCIT=MAXIMUM  NUMBER  OF  EXCITATIONS  ASSUMED  THE  SAME  FOR  ALL  FREQS.  * 

*  MXCIV=MAXIMUM  NUMBER  OF  VOLTAGE  EXCITATIONS.  * 

*  MXCIP=MAXIMUM  NUMBER  OF  PLANE  WAVE  EXCITATIONS.  * 

C - - - - 

c 

C  PARAMETERS  ASSOCIATE  WITH  JUNCTIONS 

C 

REAL  ANG(MNJUN ,MN JFACE) 

INTEGER  NJFACE(MNJUN.MNJFACE) ,MIFACE(MN JUN) .NBJUN(MNJUN) , 
ft  NWJUN (MNJUN) 

r 

INTEGER  IEDGFCMULT1 .NEDGES) 

DIMENSION  INDSUM(NEDGES) 

INTEGER  NC0NN(3, NEDGES) , NBOUND (3  , NFACES) . IM (3) 

DIMENSION  DATN0D(3, NNODES) ,TMAT(3,3) ,SM(3) 

DIMENSION  WN0DE(3 .NWNOD) ,WSEGH(3 ,NWSEG) ,RAD(NWSEG) 

INTEGER  MULTW(NWNOD) . NSEGC(2 , NWSEG) , 

>  INSEG (MXWMLT+1 ,NWNOD) .WIRSUM (NWNOD) 

COMPLEX  CZ(NUNKNT.NUNKNT) .CV(NUNKNT) 

COMMON/WIRE/ I QUADW 
COMMON/WIRSLF/iqWS 

IQUADW=4 

IQWS=8 

C 

CALL  WCUMUL(NWNOD,NUNKNB, MULTW .WIRSUM) 

CALL  MTXWIR(MXWMLT , NWNOD , NWSEG , NUNKNB , NUNKNT , WNODE , MULTW , 

>  NSEGC .WSEGH , RAD , INSEG ,CZ ,CV , WIRSUM , DATNOD , NCONN .NBOUND , 

$  NNODES , NEDGES , NFACES , I EDGF , MULT 1 , I NDSUM , N JCT , MNJUN , NWJUN , 

$  NB JUN . N JFACE ,MN JFACE .MIFACE . ANG , IPAT) 

RETURN 

END 
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A. 40 


MTXWIR 


SUBROUTINE  MTXWI R(MXWMLT , NWNOD , NWSEG , NUNKNB , NUNKNT , WNODE , MULTW , 

>  NSEGC , WSEGH , RAD , INSEG , CZ , CV , WIRSUM , DATNOD , NCONN , NBOUND , 

$  N NODES , NEDGES , NFACES , IEDGF .MULTI . INDSUM , NJCT , MN JUN , NW JUN , 

$  NB JUN . N JFACE . MN JFACE , MIFACE , ANG . IPAT) 

c - 

C  FILL  MATRIX  ELEMENTS  WHICH  SOURCE  POINT  ON  WIRE 
C  PARAMETERS  ASSOCIATE  WITH  JUNCTIONS 
C 

REAL  ANG (MN JUN ,MN JFACE) 

INTEGER  N JFACE (MN JUN , MN JFACE) .MIFACE(MNJUN) , NB JUN(MNJUN) , 

&  NW JUN (MN JUN ) 

C 

INTEGER  IEDGF(MULT1 .NEDGES) 

DIMENSION  INDSUM(NEDGES) 

INTEGER  NC0NN(3, NEDGES) ,NB0UND(3, NFACES) ,IM(3) 

DIMENSION  DATNOD (3 .NNODES) ,TMAT(3,3) ,SM(3) 

C 

DIMENSION  WN0DE(3, NWNOD) , MULTW (NWNOD) .NSEGC (2 .NWSEG) , 

>  WSEGK(3. NWSEG) .RAD(NWSEG) , INSEG(MXWMLT+1 , NWNOD) 

INTEGER  WIRSUM(NWNOD) 

COMPLEX  CZ (NUNKNT, NUNKNT) ,CV( NUNKNT) 

REAL  LAMBDA  ,  Ml)  ,K  ,  IMP 
C 

*  DATA  PASSED  INTO  WSOLTN  FROM  WINDAT 

C 

SAVE  /WAVE/ , /PARAM/ . /INC/ , /MEDIUM/ 

COMMON/WAVE/OMEGA, LAMBDA, K 
COMMON/PARAM/THETA .PHI .IFIELD 
COMMON/INC/HTHETA ,HPHI .ETHETA ,EPHI 
COMMON /MEDIUM/DEG2RAD , EPSLON , MU , IMP , SL , PI 
COMMQN/F/FREQ 
C 

CALL  ZWW (MXWMLT , NWNOD , NWSEG . NUNKNB , NUNKNT , WNODE , MULTW , NSEGC . 

>  WSEGH . RAD , INSEG ,CZ . CV .WIRSUM . NWJUN , MN JUN ) 

C 

CALL  ZBW (MXWMLT , NWNOD , NWSEG , NUNKNB , NUNKNT , WNODE , MULTW .NSEGC , 

$  WSEGH , RAD , INSEG , CZ . WIRSUM , DATNOD , NCONN .NBOUND , NNODES , NEDGES , 

$  NFACES, IEDGF, MULTI .INDSUM, NJCT, MN JUN, MN JFACE, ANG, N JFACE, MIFACE 
$  , NWJUN, NB JUN) 

C 

40  CONTINUE 
499  CONTINUE 
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RETURN 

END 


A. 41  ZWW 

SUBROUTINE  ZWW (MXWMLT , NWNOD , NWSEG , NUNKNB , NUNKNT , WNODE , MULTW , NSEGC , 
>  WSEGH , RAD , INSEG ,CZ  ,CV .WIRSUM ,NWJUN ,MNJUN) 

C - 

C  FILL  MATRIX  ELEMENTS  WHICH  SOURCE  AND  MATCHING  POINTS  ON  WIRE 
C 

*  INPUT: 

*  MXWMLT  =  MAXIMUM  MULTIPLICITY  THAT  ANY  WIRE  NODE  MAY  HAVE. 

*  NWNOD  =  NUMBER  OF  WIRE  NODES. 

*  NWSEG  =  NUMBER  OF  WIRE  SEGMENTS. 

*  NUNKNB  =  NUMBER  OF  BODY  UNKNOWNS. 

*  NUNKNT  =  TOTAL  NUMBER  OF  UNKNOWNS (BODY  AND  WIRE). 

*  WNODECI.J)  1=1, 2, 3  CONTAINS  THE  X.V.Z  COORDINATES  OF  THE  JTH  WIRE 

*  NODE. 

*  MULTW (N)  CONTAINS  THE  MULTIPLICITY  OF  THE  NTH  NODE. 

*  NSEGC  (I  ,J) '.THE  JTH  WIRE  SEGMENT  RUNS  FROM  NSEGC(1,J)  TO  NSEGC  (2,  J). 

*  WSEGH (I , J)  1=1 ,2,3  CONTAINS  THE  X.l.Z  COORDINATES  OF  THE  MIDPOINT  OF 

*  JTH  WIRE  SEGMENT. 

*  RAD(N)  CONTAINS  THE  RADIUS  OF  THE  NTH  WIRE  SEGMENT. 

*  INSEG(M ,N)  M= 1 _ _ MULTW (N)  ARE  THE  SEGMENTS  (IN  INCREASING 

*  ORDER)  ATTATCHED  TO  THE  NTH  WIRE  NODE. 

*  NWCZN  =  THE  NUMBER  OF  LUMPED  IMPEDENCE  LOADS  ON  THE  WIRE. 

»  IWCZN (1,1)  CONTAINS  THE  NODE  LOCATION  OF  THE  ITH  IMPEDENCE  LOAD, 

*  IWCZN (2 , I ) = 1  IF  THE  LOAD  IS  ON  THE  FIRST  NODE  OF  THE  SEGMENT 

*  2  IF  THE  LOAD  IS  ON  THE  SECOND  NODE  OF  THE  SEGMENT 

*  1  =  1 .... .NWCZN. 

*  CWZN(I)  CONTAINS  THE  VALUE  OF  THE  COMPLEX  LUMPED  IMPEDENCE  FOR  THE 

*  IWCZN (1, 1 )TH  NODE,  1  =  1 .... .NWCZN  . 

*  NWVLT  =  THE  NUMBER  OF  DELTA  GAP  VOLTAGE  SOURCES  ON  THE  WIRES. 

*  IWVLT(l.I)  CONTAINS  THE  NODE  LOCATION  OF  THE  ITH  DELTA  GAP  VOLTAGE 
»  SOURCE  ON  THE  WIRES. 

*  IWVLT(2,I)=1  IF  THE  SOURCE  IS  LOCATED  ON  THE  FIRST  NODE 

*  2  IF  THE  SOURCE  IS  LOCATED  ON  THE  2ND  NODE  OF  THE  SEGMENT 

*  CWVLT(I)  CONTAINS  THE  VALUE  OF  THE  COMPLEX  DELTA  GAP  VOLTAGE 

*  SOURCE  OF  THE  IWVLI(1,I)TH  NODE.  A  PASSIVE  SIGN  CONVENTION  IS  WITH 

*  RESPECT  TO  THE  CURRENT  IN  THE  DIRECTION  OF  THAT  SEGMENT. 

*  CZ  THE  IMPEDANCE  MATRIX  DIMENSIONED  NUNKNT*NUNKNT 

*  CV  IS  THE  VOLTAGE  FORCING  FUNCTION  VECTOR  DIMENSIONED  NUNKNT 
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*  OUTPUT: 

*  THE  PORTION  OF  THE  IMPEDANCE  MATRIX  ASSOCIATED  WITH  THE  WIRE  WIRE 

*  COUPLING  IS  FILLED  AND  ALSO  THE  WIRE  PORTION  OF  THE  FORCING  VECTOR  IS 

*  FILLED. 

*  CZ(MM , NN ) = J*OMEGA* (VAP(M , N)  DOT  VLP (M , N) +VAM (M  ,  N )  DOT  VLM(M) ) 

*  -(SPOTP(M,N)-SPOTM(M,N)) 

*  CV (MM) =VEP (M)  DOT  VLP ( M) +VEM (M)  DOT  VLM(M)  -ANY  WIRE  VOLTAGE  SOURCE 

*  MM=M+NUNKNB  NN=N+NUNKNB 

*  WHERE 

«  VAP(M , N)  AND  VAM(M.N)  ARE  THE  VECTOR  POTENTIALS  DUE  TO  THE 

*  N  TH  WIRE  BASIS  FUNCTIONS  EVALUATED  AT  THE  +  AND  -  CENTROIDS 

*  OF  THE  M  TH  WIRE  BASIS  FUNCTION. 

»  SPOTP (M , N)  AND  SPOTM(M,N)  ARE  THE  SCALAR  POTENTIALS  DUE  TO 
»  THE  N  TH  WIRE  BASIS  FUNCTION  EVALUATED  AT  THE  +  AND  THE  - 

*  CENTROIDS  OF  THE  M  TH  WIRE  BASIS  FUNCTION. 

*  N  =  1  ..... NWUNKS  M=  1 ,  .  .  .  , NWUNKS 

*  VLP (M)  IS  THE  VECTOR  WHICH  RUNS  FROM  THE  THE  BEGINNING  OF 

*  THE  +  SEGMENT  TO  THE  CENTROID  OF  THE  +  SEGMENT  .THIS  +  SEGMENT  IS  THE 

*  +  SEGMENT  ASSOCIATED  WITH  THE  M  TH  BASIS  FUNCTION. 

*  VLM(M)  ISM  NTHE  VECTOR  WHICH  RUNS  FROM  THE  -  CENTROID  OF  THE  M  TH 

*  BASIS  FUNCTION  TO  THE  ENDPOINT  OF  THAT  SEGMENT. 


DIMENSION  WNCDE ( 3 , NWNOD ' , MULTW (NWNDD .  , NSECO  .2 .NWSEG) , 

>  WSEGH  (  3  ,  NWSEG  -  ,  RAD  (NWSEG  ^  .  IN.'EG  MXWML7*  \  ,  NWNOD'  . 

>  RMKC3)  ,  SH(3)  , RSKi(3)  ,  T(3  ’> 

COMPLEX  CZ(NUNKNT.NUNKNT) .CV(NUNKNT) , 

>  CSPW .HTHETA ,HPHI .ETHETA ,EPKI , EX , EY , El , ANS(3) , 

>  SPOT,VAP(3) ,VAM(3) .SSPOT.VA  3 ■ , CETEMP , EDOTT , CARG , CTEMP 

>  , CKRED , CKTOT , CKSELF .CANS 
INTEGER  WIRSUM(NWNOD) .NWJUN (MNJUN) 

REAL  LAMBDA,K,MU,IMP 

EXTERNAL  CKRED, CKTOT, CKSELF 
LOGICAL  LOWS, LOWM, PLUS 

SAVE  /WAVE/ , /PARAM/ , /INC/ , /MEDIUM/ , /WKERNL/ , /WIRE/ , /WKER/ 

COMMON/POT/NM , NS , DEL , DELS , DELH , DELRH , RVPW , CSPW , RADMKS 

COMMON/WAVE/OMEGA .LAMBDA ,K 

COMMON /MED IUM/DEG2RAD ,EPSLON,MU,IMP,SL,PI 

COMMON/PARAM/THETA ,PHI .NFIELD 

COMMON/INC/HTHETA ,HPHI .ETHETA ,EPHI 

COMMON/WKERNL/RSK ,SH , RMK , RADSK .RADSKS 

COMMON / WKER/DP AR ,RHO  .RHOPR.RHOPRS .RHOMRS 

CCMMON/WIRE/IOUADW 

CCuMON/WIRSLF/IQWS 
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T 


4 


*  SET  CONSTANTS. 

C 

IQUAD=IQUADW 
IQUAWS=IQWS 
PI4=4 . *PI 
RVPW=MU/PI4 

CSPW=CMPLX (0 . ,1 ./(0MEGA*EPSL0N*PI4)) 

CTHETA=COS (THETA) 

STHETA=SIN (THETA) 

CPHI=COS(PHI) 

SPHI=SIN (PHI) 

C 

«  CARTESIAN  COMPONENTS  OF  THE  INCIDENT  FIELD  ARE: 

C 

EX  =ETHETA*CTHETA*CPHI -EPHI*SPHI 
EY=ETHETA*CTHETA*SPHI+EPHI*CPHI 
EZ=-ETHETA*STHETA 

*  LCCP  OVER  THE  SOURCE  SEOMENTS. 

r:  icoo  ns=  i , nwseg 
IF (NS. EC- 1 . OR . NFIELD . LE . 1)THEN 
RADSK=K*RAD(NS) 

RADSKS=RADSK*RAD3K 
OELRH= 1 S . *RADSK 

r 

*  OBTAIN  K*  THE  COORDINATES  OF  THE  SOURCE  SEGMENT  CENTROID 
C 

NSF=NSEGC ( 1 , NS) 

NST=NSEGC(2 ,NS) 

DO  2  J  =  1 ,3 

RSK ( J ) =K*WSEGH ( J  ,NS) 
SH(J)=K*(WNODE(J,NST)-WNODE(J,NSF)) 

2  CONTINUE 

DEL=SQRT(SH( 1) *SH( 1 )+SH(2) *SH(2) +SH(3) *SH . 3) ) 
DELS=DEL*DEL 
DELH= . S*DEL 
DO  4  3=1,3 

SH ( J) =SH ( J) /DEL 
4  CONTINUE 

C 

*  LOOP  OVER  THE  MATCH  SEGMENTS. 

C 

CO  500  NM= 1 , NWSEG 
RADMK=K*RAD(NM) 


* 


ns 


RADMKS=RADMK*RADMK 

C 

*  OBTAIN  COORDINATES  OF  TEST  VECTOR  AND  MATCH  SEGMENT  CENTROID  TIMES  K. 

C 

NMF=NSEGC( 1 , NM) 

NMT=NSEGC(2,NM) 

DO  S  J= 1 , 3 

T(J)=.5*(WN0DE(J, NMT) -WNODEC J ,NMF) ) 

RMK(J)=K*WSEGH(J,NM) 

5  CONTINUE 

C 

*  COMPUTE  QUANTITIES  FOR  CALCULATION  OF  THE  VECTOR  AND  SCALAR  POTENTIALS 
C 

CALL  POTWIR(SSPOT,VAP,VAM,0) 

IV=0 

c 

*  LOOP  OVER  NODES  ATTACHED  TO  THE  SOURCE  SEGMENT. 

DO  400  JNS- 1  , 2 

NODES=NSEGC ( JNS , NS) 

MULTS=MULTW( NODES) 

IF (MULTS . GT . 0)THEN 

*  COMPUTE  COLUMN  INDEX  FOR  SOURCE  SEGMENT. 

I NDC=WI RSUM ( NODES) 

C 

*  DETERMINE  WHETHER  SEGMENT  NS  IS  THE  LOWEST  SEGMENT  ATTACHED  TO  NOD 

*  NODES. LOOP  OVER  THE  NUMBER  OF  SEGMENTS  ATTACHED  TO  NS  AT  NODE  NODE 
C 

CALL  NODMUL (INSEG.MXWMLT.NWNOD, NODES , MULTS .NS . JS1 , J S 2 , 

>  LOWS) 

IF  (LOWS . AND . NODES . EQ . NWJUN (MN JUN) )  THEN 
JS 1  =  1 
JS2  =  1 

LOWS= .FALSE. 

ENDIF 

DO  300  J  =  JS 1  ,  JS2 
ICOL=INDC+ J 
IV=IV+1 

IF (NODES . EQ . NSEGCC2 ,NS) )THEN 
PLUS= . TRUE . 

ELSE 

PLUS= .FALSE. 

ENDIF 
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ti)  C/j 


o  o 


IF (LOWS)THEN 


*  OBTAIN  THE  ATTACHED  SEGMENT. 
r 

NSEGAS=INSEG(J+1 .NODES) 

C 

*  SGN=+ 1  IF  SEGMENT  NS  ft  ATTACHED  SEGMENT  RUN  IN  THE  SAME  DIRECTION, 

*  SGN=- 1  IF  SEGMENT  NS  ft  ATTACHED  SEGMENT  RUN  IN  THE  OPPOSITE  DIRECTION 

I F ( NSEGC(2 , NS) . EQ . NSEGC ( 1  ,  NSEGAS) .OR. 

>  NSEGC ( 1  .NS) . EQ . NSEGC (2 , NSEGAS) )THEN 
SGN  =  1  . 

ELSE 
SGN=- 1 . 

END  IF 
ELSE 
SGN=  1  . 

ENDIF 

C 

C 

*  COMPUTE  APPROPRIATE  VECTOR  AND  SCALAR  POTENTIALS. 

IF (PLUS) THEN 
C 

C  FOR  PLUS  SOURCE  SEGMENT  SET  SIGN=  (-1)  TO  VECTOR  AND  SCALAR  POTENTIALS 
C 

IF (NODES . EG . NWJUN (MN JUN) )  SGN=-1 . 

DO  30  J J=  1  ,3 

VA(JJ)=VAP(JJ)*SGN 
30  CONTINUE 

SPOT=SSPOT*SGN 
ELSE 

FOR  MINUS  SOURCE  SEGMENT  SET  SIGN=  (+1)  TO  VECTOR  POTENTIAL  AND 
C  (-1)  TO  SCALAR  POTENTIALS 

C 

IF(NODES.EQ. NWJUN (MN JUN ) )  SGN  =  1 . 

DO  40  JJ=1  ,3 

VA(JJ)=VAM(JJ)*SGN 
40  CONTINUE 

SPOT=-SSPOT*SGN 

ENDIF 

CTEMP= ( VA (l)*T(l)+VA(2)*T(2)+VA(3)*T(3))* 

>  CMPLXCO.  .OMEGA) 

IFCNS.EQ.l  .AND.IV.EQ. 1)THEN 
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c 

»  COMPUTE  QDANTIES  ASSOCIATED  WITH  THE  INCIDENT  FIELD. 

C 

ARGMNT= (RMK ( 1 ) *CPHI+RMK (2) *SPHI ) +STHETA+ 
>  RMK(3)*CTHETA 

CARG=CMPLX(0. , ARGMNT) 
ED0TT=EX*T(1)+EY*T(2)+EZ*T(3) 
CETEMP=EDOTT*CEXP (CARG) 

ENDIF 

C 

*  LOOP  OVER  THE  NODES  ATTACHED  TO  THE  MATCH  SEGMENT. 

C 

DO  250  JMN=1 ,2 

NOD£M=NSEGC(JMN,NM) 

MULTM=MULTW(NODEM) 

IF(MULTM . GT . 0)THEN 

C 

*  COMPUTE  ROW  INDEX  FOR  SOURCE  SEGMENT. 


INDR=WIRSUM(NODEM) 


•  DETERMINE  WHETHER  SEGMENT  NM  IS  THE  LOWEST  SEGMENT  ATTACHED 
«  TO  SEGMENT  NM  AT  NODE  NODEM.LOOP  OVER  THE  NUMBER  OF  SEGMENTS  ATTACHED 
»  TO  SEGMENT  NM  AT  NODE  NODEM. 


C 


CALL  NODMUL ( INSEG  ,  MXWMLT  ,  NWNOD  ,  NODEM  ,  MULTM  , NM_* 
>  JM1 , JM2.L0WM) 

IFCLOWM . AND . NODEM . EQ . NWJUN (MNJUN ) )  THEN 
JM1  =  1 
JM2=  1 

LOWM=. FALSE. 

ENDIF 

DO  200  JM=JM1 , JM2 


*  DETERMINE  WHETHER  SEGMENT  IS  A  PLUS  OR  MINUS  SEGMENT. 

C 

IF (NODEM  .EQ . NSEGC(2 ,NM) )THEN 
SGN1=1 . 

ELSE 

SGN1=-1. 

ENDIF 

IF (LOWM)THEN 

C 

*  CASE:  SEGMENT  NM  IS  THE  LOWEST  NUMBERED  SEGMENT  ATTACHED  TO  NODE 

*  NODEM.  DIRECTION  OF  THE  BASIS  FUNCTION  IS  DETERMINED  BY  THE  ATTACHED 
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*  SEGMENT.  OBTAIN  ATTACHED  SEGMENT. 

C 

NSEGAM=INSEG(JM+1 ,NQDEM) 

IF(NSEGC(2,NM) . EQ . NSEGC( 1 , NSEGAM) .OR. 

>  NSEGC(l.NM) .EQ.NSEGC (2, NSEGAM)) THEN 

SGN=1 . 

|  ELSE 

SGN=-1 . 

ENDIF 
ELSE 
SGN=1 . 

ENDIF 

C  CHECK  IF  THIS  IS  A  JUNCTION  NODE 
IF (NODEM . EQ . NW JUN (MN JUN ) ) THEN 
C  CHECK  IF  THIS  IS  A  PLUS  SEGMENT 

IF (NODEM . EQ . NSEGC(2 , NM) )THEN 
C 

C  FOR  PLUS  MATCHING  SEGMENT  SET  SIGN=  (-1)  TO  VECTOR  POTENTIAL  AND 
C  (+1)  TO  SCALAR  POTENTIALS 
C 

C  FOR  MINUS  MATCHING  SEGMENT  SET  SIGN=  (+1)  TO  VECTOR  POTENTIAL  AND 
C  (+1)  TO  SCALAR  POTENTIALS 

C 

SGN=-1. 

SGN1=1  . 

ELSE 
SGN=1 . 

SGN1=-1. 

ENDIF 
ENDIF 
C 

IROW=INDR+JM 

IF(NS .EQ . 1 . AND . IV . EQ . l)CV(IROW)= 

>  CV(IROW) +SGN*CETEMP 
IF (NFIELD .EQ . l)CZ(IROW , ICOL)= 

>  CZ ( IROW , ICOL) +SGN* (CTEMP-SPOT*SGNl ) 

200  CONTINUE 

ENDIF 

2S0  CONTINUE 

300  CONTINUE 

ENDIF 

400  CONTINUE 

500  CONTINUE 

ENDIF 

1000  CONTINUE 
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RETURN 

END 


A. 42  ZBW 

SUBROUTINE  ZBW (MXWMLT , NWNOD . NWSEG , NUNKNB , NUNKNT , WNODE , MULTW , NSEGC , 
$  WSEGH , RAD , INSEG , CZ , WIRSUM , DATNOD , NCONN , NDuUND , NNODES , NEDGES , 

$  NFACES , IEDGF , MULTI , INDSUM ,NJCT, MNJUN .MNJFACE , ANG , NJFACE .MIFACE 
$  ,NWJUN , NBJUN) 


C  THIS  ROUTINE  FILL  CUT  THE  MATRIX  ELEMENTS  OF  ZBW  WHICH  IS  SOURCE  POINT 
C  ON  THE  WIRE  AND  MATCH  POINT  ON  THE  BODY 
C  PARAMATERS  ASSOCIATE  WITH  JUNCTION  PART 

C 

RE* L  ANG(MNJUN, MNJFACE) ,XM(3) ,YM(3) ,ZM(3) , VMJUN (3) 

INTEGER  NJFACECMNJUN, MNJFACE) .MIFACE(MNJUN) , NBJUN (MNJUN) , 

4  N'WJUN (MNJUN)  ,NM(3) 

r 

INTEGER  IEDGF (MULTI .NEDGES) 

DIMENSION  INDSUM(NEDGES) 

DIMENSION  WN0DE(3. NWNOD) , MULTW (NWNOD) , NSEGC (2 , NWSEG) , 

>  WSEGH (3 .NWSEG) .RAD(NWSEG) , INSEG (MXWMLT+ 1 , NWNOD;  , 

>  RMK(3) ,SH(3) ,RSK(3) ,T(3) 

INTEGER  NCONN (3 , NEDGES) , NBOUND (3  , NFACES) ,IM(3) 

DIMENSION  DATN0D(3, NNODES) ,TMAT(3,3) ,SM(3) 

COMPLEX  CZ(NUNKNT, NUNKNT) , 

>  CSPW ,HTHETA , HPHI .ETHETA ,EPHI , EX , EY, EZ . ANS(3)  , 

>  SP0T,VAP(3) ,VAM(3) ,SSP0T,VA(3) .CETEMF , EDOTT , CARG , CTEMP 

>  , CKRED , CKTOT .CKSELF , CANS , C JWEMP . CX 
INTEGER  WIRSUM(NWNOD) ,IGNDP(3) 

REAL  LAMBDA,K,MU,IMP,DM(3,3) , DLM(3) . DMC (3) 

EXTERNAL  CKRED .CKTOT . CKSELF 
LOGICAL  LOWS, LOWM, PLUS 

SAVE  /WAVE/ , /PARAM/ , /INC/ , /MEDIUM/ , /WKERNL/ . /WIRE/ , /WKER/ 

COMMON/ POT/ NFM , NS . DEL . DELS ,DELH , DELRH , RVPW , CSPW , RADMKS 

COMMON/WAVE/OMEGA .LAMBDA ,K 

COMMON /MED IUM/DEG2RAD .EPSLON ,MU, IMP.SL ,PI 

COMMON/PAP.AM/THETA  .PHI  .NFIELD 

COMMON/INC/HTHETA, HPHI, ETHETA ,EPHI 

COMMON/WKERNL/RSK , SH , RMK , RADSK , RADSKS 

COMMON /WKER/ DP AR ,RHO .RHOPR.RHOPRS .RHOMRS 

COMMON /WIRE/ I QUADW 
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COMMON/WIRSLF/IQWS 
'’OMMON/GPLANE/NGNDP ,  IGNDP 
C 

*  SET  CONSTANTS. 

k  C 

f  SIZE(X , Y,Z)=SQRT(X*X+Y*Y+Z*Z) 

NFM=0 

IQUAD=IQUADW 
IQUAWS=IQWS 
PI4=4 . *PI 
RVPW=MU/PI4 

CSPW=CMPLX (0 . ,1 ,/(OMEGA*EPSLON*PI4)) 

r 

»  LOOP  OVER  THE  SOURCE  SEGMENTS  OF  THE  WIRE 
C 

CALL  BCUMULCNCONN , INDSUM , NEDGES) 

DO  1000  NS=1 , NWSEG 

IF (NS . EQ . 1 . OR . NFIELD . LE . 1)THEN 
RADSK=K*RAD(NS) 

RADSKS=RADSK*RADSK 
DELRH=15 . *RADSK 

r 

*  OBTAIN  K*  THE  COORDINATES  OF  THE  SOURCE  SEGMENT  CENTROID 
C 

NSF=NSEGC(1 ,NS) 

NST=NSEGC(2 ,NS) 

DO  2  J=1 ,3 

RSK ( J ) =K  *WSEGH ( J , NS ) 

SH( J) =K* (WNODEC J , NST) -WNODEC J ,NSF) ) 

2  CONTINUE 

DEL=SQRT(SH( 1) ♦SH ( 1) +SH(2) *SH(2) +SH(3) *SH(3) ) 
DELS=DEL*DEL 
DELH= . 5*DEL 
DO  4  J=1 ,3 

SH(J)=SH( J) /DEL 
4  CONTINUE 

C 

C  LOOP  OVER  FACE  NUMBERS  OF  THE  MATCH  TRIANGLES  OF  THE  BODY 
DO  500  IFM=1 .NFACES 
IIM=1 

C  OBTAIN  THE  EDGES  OF  THE  MATCH  TRIANGLE 

CALL  FACEDG(NFACES , NBOUND , IFM, IM) 

C  OBTAIN  THE  VERTICES  OF  THE  MATCH  TRIANGLE 
CALL  FACVTXCNCONN, NEDGES, IM,NM) 

C  OBTAIN  THE  COORDINATES  OF  THE  MATCH  TRIANGLE’S  VERTICIES 
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CALL  VTXCRD(DATNOD,NNOD£S,NM,DM) 

DO  14  J=1 ,3 

C  CALCULATE  THE  CENTROID  OF  THE  MATCH  TRIANGLE 
DMC(J1=(DM(1, J)+DM(2. J)+DM(3, J))/ 3 
C  RMK(J)  IS  THE  MATCH  POINT 
14  RMK(J)=K*DMC(J) 

DO  6  1=1,3 
DO  6  J=1 ,3 

C  TESTING  VECTOR  =  0.5*THE  VECTOR  RUNNING  FROM  THE  ITH  VERTICE  TO  CENTROID 

6  TMATCI , J)=(DMC( J) -DM(I , J) )/2 . 

DO  8  1=1,3 

IP  l=MOD (1 , 3)  +  1 
IMl=MOD(I+l ,3)+l 

C  COMPUTE  THE  EDGE  LENGTH  OF  THE  MATCH  TRIANGLE 
DO  7  >1,3 

7  DLM(J)=DM(IM1,J)-DM(IP1,J) 

8  SM (I) =SIZE(DLM ( 1 ) ,DLM(2) ,DLM(3)) 

C - - - - - - - 

C  IF  NJCT=G,  NO  WIRE  JUNCTION  WITH  BODY 

C  IF  N JCT=i ,  CHECK  IF  ANY  JUNCTION  IN  THIS  MATCH  TRIANGLE 
C  IF  JMF=0 ,  NO  JUNCTION  IN  THIS  MATCH  TRIANGLE 
C  IF  JMF=N,  N=1 ,2,3 ,  FIND  OUT  ASSOCIATED  PARAMETERS 

C 

IF (N JCT . EQ . 1 ) THEN 
r 

C  TO  FIND  PARAMATERS  ASSOCIATE  WITH  THIS  JUNCTION 
C 

CALL  JUNPAR(  JMF  ,  DM  ,  NM  ,  IFM  ,  ANGM  ,  VM J'JN  ,  JMROW , 

&  W1RSUM  ,MN  JUN  ,MN  JFACE  ,  NWNOD  ,  ANG  ,  N  JFACE  ,  MIFACE ,  NW  J'JN  , NBJUN ) 

C 

C  ANGM  IS  THE  ANGULAR  DISTRIBUTION  COEFFICIENCY  OF  MATCH  TRIANGLE 
C 

ELSE 

JMF=0 

ENDIF 

C 

*  COMPUTE  QUANTITIES  FOR  CALCULATION  OF  THE  VECTOR  AND  SCALAR  POTENTIALS 
C 

CALL  POTWIR(SSPOT .VAP.VAM,'1) 

IV=0 

C 

*  LOOP  OVER  NODES  ATTACHED  TO  THE  SOURCE  SEGMENT 
C 

DO  400  JNS= 1  , 2 

NODES=NSEGC( JNS , NS) 
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MULTS=MULTW (NODES) 

IF(MULTS . GT . 0)THEN 
C 

*  COMPUTE  COLUMN  INDEX  FOR  SOURCE  SEGMENT. 

C 

INDC=WIRSUM(NODES) 

C 

*  DETERMINE  WHETHER  SEGMENT  NS  IS  THE  LOWEST  SEGMENT  ATTACHED  TO  NODE 

*  NODES. LOOP  OVER  THE  NUMBER  OF  SEGMENTS  ATTACHED  TO  NS  AT  NODE  NODES. 
C 

C  CHECK  IF  SOURCE  POINT  IS  A  JUNCTION  POINT 

CALL  NODMULCINSEG .MXWMLT ,NWNOD .NODES .MULTS , NS , JS1 , JS2 , 

>  LOWS) 

IF  CLOWS . AND . NODES . EQ . NW JUN (MN JUN) )  THEN 

JM1=1 

JM2=1 

LOWS=. FALSE. 

ENDIF 

DO  300  J=JS1 , JS2 
ICOL=INDC+ J 
IV=IV+1 

IF (NODES . EQ . NSEGC (2 , NS) ) THEN 
PLUS= . TRUE . 

ELSE 

PLUS=. FALSE. 

ENDIF 

IF (LOWS)THEN 

C 

*  OBTAIN  THE  ATTACHED  SEGMENT. 

C 

NSEGAS=INSEG(J+1 .NODES) 

C 

*  SGN=+1  IF  SEGMENT  NS  *  ATTACHED  SEGMENT  RUN  IN  THE  SAME  DIRECTION. 

*  SGN=- 1  IF  SEGMENT  NS  t  ATTACHED  SEGMENT  RUN  IN  THE  OPPOSITE  DIRECTION 
C 

IF (NSEGC(2 ,NS) . EQ . NSEGC(1 , NSEGAS) . OR . 

>  NSEGC(l.NS) . EQ . NSEGC (2 , NSEGAS) )THEN 
SGN=1 . 

ELSE 
SGN=- 1 . 

ENDIF 
ELSE 
SGN=1 . 

ENDIF 


C 
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COMPUTE  APPROPRIATE  VECTOR  AND  SCALAR  POTENTIALS. 


IF  (.PLUS) THEN 

C  FOR  THE  JUNCTION  POINT  SET  SGN=-1  TO  THE  PLUS  SEGMENT 
IF (NODES . Eq . NW JUN (MN JUN) )  SGN=- 1 . 

DO  30  JJ=1 ,3 

C  VECTOR  POTENTIAL 

VA(JJ)=VAP(JJ)*SGN 
30  CONTINUE 

C  SCALAR  POTENTIAL 

SPOT=SSPOT*SGN 

ELSE 

C  FOR  THE  JUNCTION  SET  SGN=1  TO  THE  MINUS  SEGMENT 
IF (NODES . EQ . NWJUN(MNJUN) )  SGN=1. 

DO  40  JJ=1 ,3 

C  VECTOR  POTENTIAL 

VA(JJ)=VAM(JJ) *SGN 
40  CONTINUE 

C  SCALAR  POTENTIAL 

SPOT=-SSPGT*SGN 
ENDIF 

ZJW  :  SOURCE  POINT  ON  THE  WIRE,  MATCH  POINT  ON  THE  JUNCTION  TRIANGLE 

IF(JMF.NE.O)  THEN 
C  VECTOR  POTENTIAL  DOT  WITH  TESTING  VECTOR 

C JWEMP= (VA ( 1 ) * VM JUN (1)+VA(2)*VMJUN(2)+VA(3) * VM JUN (3) ) * 
ft  CMPLX(0. .OMEGA) 

C  SET  +  TO  VECTOR  POTENTIAL  AND  -  TO  SCALAR  POTENTIAL 
CX= (CJWEMP-SPOT) * ANGM 

IF (NFIELD . EQ . 1 ) CZ ( JMROW , ICOL) =CZ ( JMROW , ICOL) 

I  +CX 
ENDIF 

C 

C  LOOP  OVER  THE  EDGES  OF  THE  MATCH  TRIANGLE  OF  THE  BODY 
DO  100  IML=  1 , 3 

IF(NC0NN(3,IM(IML)) . GT . 0)THEN 
T1=TMAT(IML, 1) 

T2=TMAT(IML ,2) 

T3=TMAT(IML ,3) 

FLAG=1 . 

IF(IML.EQ. 1)THEN 

IF(NC0NN(1,IM(1)) . EQ.NM(3))FLAG=-1 . 

ELSEIF( IML . EQ . 2)THEN 

IF(NCONN ( 1 ,IM(2)) . EQ . NM( 1 ) ) FLAG=- 1 . 
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ELSE 

IF(NC0NN(1 ,IM(3>) .EQ . NH(2) )FLAG=-1 . 

ENDIF 

CTEMP=(VA(1)*T1+VA(2)*T2+VA(3)*T3)* 

$  CMPLX(0. .OMEGA) 

MULTM=NC0NN(3 , IM(IML) ) 

IF (MULTM . GT . 0)THEN 
IMM=IM(IML) 

C  FOR  AN  EDGE  WITH  MULTIPLICITY  MULT,  THE  LOWEST  NUMBERED  FACE 
C  CONTRIBUTES  TO  MULT  BASIS  FUNCTIONS  ASSOCIATED  WITH  THAT  EDGE, 

C  WHILE  EACH  REMAINING  FACE  CONTRIBUTES  TO  ONE  BASIS  FUNCTION  ASSOCIATED 
C  WITH  THAT  EDGE. 

CALL  EDGMUL (IEDGF , MULTI . NEDGES , MULTM , IMM.IFM, 

SJM1.JM2) 

INDM=INDSUM(IMM) 

DO  SO  JM=JM1 , JM2 
IROW=INDM+JM 

CX=FLAG» (CTEMP-SPOT) *SM(IML) 

IFCNFIELD.EQ. 1 )CZ ( IROW , ICOL) = 

>  CZ(IROW.ICOL)+CX 

SO  CONTINUE 

ENDIF 

ENDIF 

100  CONTINUE 

300  CONTINUE 

ENDIF 

400  CONTINUE 

500  CONTINUE 

ENDIF 

1000  CONTINUE 
RETURN 
END 


A. 43  ZBB 

SUBROUTINE  ZBB (DATNOD , NCONN , NBOUND . IEDGF .MULTI . NNODES .NEDGES , 

$  NFACES . NUNKNT , CZ , CV , INDSUM , N JCT , MN JUN , MNJFACE , NWNOD , WIRSUM . 

$  ANG.NJFACE.MIFACE.NWJUN.NBJUN) 

C - - - . - - - 

C  THIS  ROUTINE  FILLS  THE  BODY-BODY  ELEMENTS  OF  THE  IMPEDANCE  MATRIX. 

C  ZBBCZ (M , N ) =L (M) * [ J*OMEGA* ( VAP (M . N ) DOT  VRCP(M) /2+VAMCM ,N)DOT  VRC(M,N)/2) 
C  -SPOTP(M,N)+SPOTM(M,N)] 


I2S 


C  CV(M)=L(M)*[VEP(M)DOT  VRCP(M)/2+VEM(M)D0T  VRCM(M)] 

C  WHERE: 

C  VAP(M.N)  AND  VAM(M,N)  ARE  THE  VECTOR  POTENTIALS  DUE  TO  THE  NTH  BODY 
C  BASIS  FUNCTION  EVALUATED  AT  THE  +  AND  -  CENTROIDS  OF  THE  MTH  BODY 
C  BASIS  FUNCTION. 

C  L(M)  IS  THE  LENGTH  OF  THE  EDGE  ASSOCIATED  WITH  THE  MTH  BASIS 
C  FUNCTION  TRIANGLES. 

C  SPOTP(M.N)  AND  SPOTM(M.N)  ARE  THE  SCALAR  POTENTIALS  DUE  TO  THE  NTH 
C  BASIS  FUNCTION  EVALUATED  AT  THE  +  AND  -  CENTROIDS  OF  THE  MTH  BASIS 
C  FUNCTION  TRIANGLES. 

C  VRCP(M)  ND  VRCM(M)  ARE  THE  COORDINATE  VECTORS  OF  THE  +  AND  - 
C  CENTROIDS  OF  THE  MTH  BASIS  FUNCTION  TRIANGLES. 

C  VEP (M)  AND  VEM(M)  ARE  THE  ELECTRIC  FIELD  VECTORS  EVALUATED  AT  THE  + 
C  AND  -  CENTROIDS  OF  THE  MTH  BASIS  FUNCTION  TRIANGLES.  N=1 , . . . , NUNKNB 

C  M=1 _ .NUNKNB,  WHERE  NUNKNB  IS  THE  NUMBER  OF  BODY  UNKNOWNS. 

C 

C  INPUT: 

C  DATNOD ( I , J)  1=1, 2, 3  ARE  THE  X,Y,Z  COMPONENTS  OF  THE  JTH  VERTEX. 

C  THE  JTH  EDGE  RUNS  FROM  NCONN(l.J)  TO  NCQNN(2,J).  NCDNN(3,J)  IS  THE 
C  MULTIPLICITY  OF  THE  JTH  EDGECI.E.  THE  NUMBER  DF  UNKNOWNS  ASSOCIATED 
C  WITH  THAT  EDGE.) 

C  NBOUND ( I , J)  1=1, 2, 3  ARE  THE  3  EDGES  OF  THE  JTH  FACE. 

C  NNODES  IS  THE  NUMBER  OF  NODES  ON  THE  BODY. 

C  NFACES  IS  THE  NUMBER  OF  BODY  FACES. 

C  NUN K NT  IS  THE  TOTAL  NUMBER  OF  UNKNOWNS. 

C  ALSO  THE  COMMON  FIELDS  /WAVE ,PARAM , INC/  IN  PARTICULAR  NFIELD 
C  COMPUTED  IN  SOLTN  AND  /MEDIUM/  COMPUTED  IN  INDATA  ARE  PASSED. 

C  OUTPUT: 

C  IF  NFIELD  .LE.  1  BOTH  CONTRIBUTIONS  TO  CZ  AND  CV  ARE  FILLED. 

C  IF  NFIELD  .GT.  1  ONLY  CONTRIBUTIONS  TO  CV  ARE  FILLED. 

C - - - - 

C  PARAMATERS  ASSOCIATE  WITH  JUNCTION  PART 

REAL  ANG(MNJUN.MNJFACE) ,VMJUN(3)  ,VSJUN(3) ,H(3) 

INTEGER  NJFACE(MNJUN .MNJFACE) ,MIFACE(MN JUN) .NBJUNCMNJUN) , 

&  NWJUN(MNJUN) .WIRSUM(NWNOD) 

C 

INTEGER  JCONN (3 , NEDGES) , NBOUND (3 , NFACES) , IEDGF (MULTI , NEDGES) , 

$  IM(3) , IS(3) ,NS(3) ,NM(3) ,IGNDP(3) 

DIMENSION  INDSUMC NEDGES) ,DN(3,3) ,DM(3,3) ,DMC(3) ,DLM(3) ,AL(3) 

$  ,SN(3) ,DLN(3) ,DATN0D(3, NNODES) ,TMAT(3,3) ,RK(3,3) ,RMK(3) , 

$  SM(3) ,DL(3 ,3) 

COMPLEX  CJBEMP .CBJEMP .CJETEMP .CJJEMP 
$ .CZCNUNKNT .NUNKNT) ,CV(NUNKNT) .HTHETA ,HPHI ,ETHETA,EPHI , 

SEX , EY , EZ , EDOTT , CVPB  ,  CSPB  ,  C  ,CI (3) ,CA(3) .CSJPOT.CSPOT.CFLAG.CARG , 
SCTEMP , CETEMP , CP ( 3 ) ,CPP,CMM,CAJ(3) ,CAJT(3) ,CAJ2(3) ,CAJT2(3) 
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c 

C  VARIABLES  ASSOCIATED  WITH  IMAGE  PATCH 

$ , CII (3) , CPPI , CMMI , CAI (3) , CAJTI (3) ,C1 (3) ,CAA(3,3) 

C 

REAL  LAMBDA ,K ,MU, IMP 
COMMON /PARA/DL , DET , H , AL 
COMMON/WAVE/OMEGA , LAMBDA , K 
C0MM0N/MEDIUM/DEG2RAD , EPSLON ,MU , IMP , SL ,PI 
COMMON/PARAM/THETA ,PHI , NFIELD 
COMMON/INC/HTHETA , HPHI , ETHETA , EPHI 
COMMON /GPLANE/NGNDP , IGNDP 
SIZE(X ,Y ,Z)=SQRT(X*X+Y*Y+Z*Z) 

CVPB=CMPLX(0 . , IMP/ (4 . *PI) ) 

CSPB=CMPLX(0. ,  ,5/(PI*0MEGA*EPSL0N)) 

CTHETA=COS (THETA) 

STHETA=S IN (THETA) 

CPHI=COS(PHI) 

SPHI=SIN(PHI) 

EX=ETHETA*CTHETA*CPHI-EPHI*SPHI 

EY=ETHETA*CTHETA*SPHI+EPHI*CPHI 

EZ=-ETHETA*STHETA 

C 

DO  999  IFS=1 .NFACES 
IIS-1 

IF ( IFS . Eq . 1 . QR . NFIELD . LE . 1 ) THEN 
C  OBTAIN  THE  EDGES  OF  THE  SOURCE  TRIANGLE 

CALL  FACEDG(NFACES , NBOUND , IFS , IS) 

C  OBTAIN  THE  VERTICES  OF  THE  SOURCE  TRIANGLE 
CALL  FACVTX(NCONN, HEDGES, IS, NS) 

C  OBTAIN  THE  COORDINATES  OF  THE  SOURCE  TRIANGLE’S  VERTICIES 
CALL  VTXCRD(DATNOD , NNODES ,NS ,DN) 

DO  2  1=1,3 
DO  2  J-1,3 

2  RK(I , J)=K*DN(I , J) 

DO  88  1=1,3 
IPl=MOD(I ,3)+l 
IM1=M0D(I+1,3)+1 
DO  77  J=1 ,3 

77  DLN(J)=DN(IM1 ,J)-DN(IP1  ,J) 

88  SN(I)=SIZE(DLN(1) ,DLN(2) ,DLN(3)) 

C  IF  NJCT=0 ,  NO  JUNCTION  CASE 

C  IF  NJCT=1 ,  CHECK  IF  ANY  JUNCTION  IN  THIS  SOURCE  TRIANGLE 
C  IF  JSF=0 ,  NO  JUNCTION  IN  THIS  SOURCE  TRIANGLE 
C  IF  JSF=N ,  N=1 ,2,3,  FIND  OUT  ASSOCIATED  PARAMETERS 
C 
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IF(NJCT.EQ.l)  THEN 

C  TO  FIND  PARAMATERS  ASSOCIATE  WITH  THIS  JUNCTION 
CALL  JUNPARC  JSF  ,  DN  ,NS ,  IFS  ,  ANGS ,  VS  JUN  ,  JSCOL , 
ft  WIRSUM , MN JUN , MNJFACE , NWNOD , ANG , N JFACE , MIFACE , NW JUN , NB JUN ) 

C  ANGS  IS  THE  ANGULAR  DISTRIBUTION  COEFFICIENCY  OF  SOURCE  TRIANGLE 
C  SN(JMF)  IS  THE  LENGTH  OF  OPPOSITE  EDGE 
IF(JSF.NE.O)  ANGS=ANGS/SN(JSF) 

ELSE 

JSF=0 

ENDIF 

C 

DO  499  IFM= 1 , NFACES 

IIM=1 

IIV=1 

C  OBTAIN  THE  EDGES  OF  THE  MATCH  TRIANGLE 

CALL  FACEDC (NFACES .NBOUND , IFM.IM) 

C  OBTAIN  THE  VERTICES  OF  THE  MATCH  TRIANGLE 
CALL  FACVTX (NCONN , NEDGES , IM ,NM) 

C  OBTAIN  THE  COORDINATES  OF  THE  MATCH  TRIANGLE’S  VERTICIES 
CALL  VTXCRDCDATNOD .NNODES ,NM,DM) 

C  CALCULATE  THE  CENTROID  OF  THE  MATCH  TRIANGLE 
DO  4  J=1 ,3 

DMC( J) = (DM(l,J)+DM(2,J)+DM(3,J))/3. 

C  RMK(J)  IS  THE  MATCH  POINT 
4  RMK(J)=K*DMC( J) 

DO  6  1=1,3 
DO  6  J=1 ,3 

6  TMAT(I , J)  =  (DMC( J) -DM(I ,  J) ) /2 . 

DO  8  1=1,3 

IPl=MOD( I , 3) + 1 
IMl=MOD ( 1  + 1 , 3)  + 1 
DO  7  J=1 ,3 

7  DLM(J)=DM(IM1 , J)-DM(IP1  ,J) 

8  SM(I)=SIZE(DLM(1) ,DLM(2) ,DLM(3)) 

C 

C  IF  N JCT=0 ,  NO  JUNCTION  CASE 

C  IF  NJCT=1 ,  CHECK  IF  ANY  JUNCTION  IN  THIS  MATCH  TRIANGLE 
C  IF  JMF=0 ,  NO  JUNCTION  IN  THIS  MATCH  TRIANGLE 
C  IF  JMF=N ,  N= 1 , 2 , 3  ,  FIND  OUT  ASSOCIATED  PARAMETERS 
C 

IF(NJCT , EQ . 1)THEN 

C  TO  GET  PARAMATERS  ASSOCIATE  WITH  THIS  JUNCTION 
CALL  JUNPARC JMF , DM  , NM  ,  IFM  ,  ANGM , VMJUN , JMROW , 
ft  WIRSUM , MN JUN , MNJFACE , NWNOD , ANG , N JFACE .MIFACE, NW JUN , NB JUN ) 

C  ANGM  IS  THE  ANGULAR  DISTRIBUTION  COEFFICIENCY  OF  MATCH  TRIANGLE 
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c 

ELSE 

JMF=0 

ENDIF 

C 

*  COMPUTE  QUANTITIES  FOR  CALCULATION  CF  THE  VECTOR  AND  SCALAR  POTENTIALS 
C 

C  CAA ( I ) =  INTEGRAL  OF  (  XSI(I)*(EXP(-JKR)-XSING)/R  D  (XSI(I)) 

C  D(XSI (1+1 ) ) )  IF  XSING=1  THEN  +1/(2*AREA)*INTEGRAL  OF  XSI(I)/R 
C  D(S’)  XSI (I) , 1=1 ,3  DENOTE  ZETA,  XSI  AND  ETA,  XSING=0  OR  1 
C  DL(I,J)  IS  THE  VECTOR  FROM  THE  I+1TK  VERTEX  TO  THE  ITH  VERTEX 
C  AL(I)  IS  THE  LENGTH  OF  THE  DL(I,J) 

C 

CALL  PCTBODC JSF ,RK ,RMK , C, CAA , CAJT, 0) 

IF(JSF.NE.O)  THEN 
ISL= JSF 

C  SET  (+)  TO  CA  (-)  TO  CAJT  (+)  TO  CSJPOT 
FLAG=AL( JSF) 

CFLAG=CVPB*FLAG 

CAA ( J ) , J= 1 , 3  ARE  THE  X,Y,Z  COMPONENTS  OF  THE  VECTOR  PONTETIAL 
C  DUE  TO  THE  TRIANGULAR  BASIS  FUNCTION 

C  CAA=(SGN) »MU*AL( I) /4*PI*(CI (I+1)*DL(1-1 ,J)-CI(I-l)»DL(I+l ,J)) 

C  CAJT(J)  IS  THE  VECTOR  POTENTIAL  DUE  TO  THE  JUNCTION  PART  OF 
C  THE  JUNCTION  BASIS  FUNCTION 

C  CAJ(J)  IS  THE  VECTOR  POTENTIAL  DUE  TO  THE  JUNCTION 
C  BASIS  FUNCTION 

C  SET  (  +  )  TO  CA  (-)  TO  CAJT  (+)  TO  CSJPOT 
C 

DO  29  J=1 ,3 

29  CAJ ( J)=(CFLAG*CAA( JSF , J)-CVPB*CAJT( J) ) 

C 

C  SET  (+)  TO  CA  (-)  TO  CAJT  O)  TO  CSJPOT 

C  CSJPOT  IS  THE  SCALAR  POTENTIAL  ASSOCIATED  WITH  THIS  JUNCTION 
C 

CSJPOT=CSPB*C*AL( JSF) 

ENDIF 

IV=0 

DO  460  ISL=1 ,3 
ISS=IS(ISL) 

MULTS=NC0NN(3 , ISS) 

IF(MULTS . NE . 0)THEN 
IFCISL.EQ. 1)THEN 
FLAG=AL(1) 

IF (NCONN (1 ,IS(l)) . EQ . NS(3) ) FLAG=-FLAG 
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ELSEIF(ISL . EQ . 2) THEN 
FLAG=AL(2) 

IF(NC0NN(1 , IS(2) ) . EQ . NS( 1 ) ) FLAG=-FLAG 
ELSE 

FLAG=AL(3) 

IF(NC0NN(1,IS(3)).EQ.NS(2)) FLAG=-FLAG 
EKDIF 

CFLAG=CVPB*FLAG 
IP1=M0D(ISL  ,3)  +  1 
IM1=M0D(IP1 ,3)  +  l 

CACJ),J=1,3  ARE  THE  X.Y.Z  COMPONENTS  OF  THE  VECTOR  PONTETIAL 
CA=(SGN)*MU*AL(I)/4*PI*(CI(I+1)*DL(I-1,J)-CI(I-1)*DL(I+1,J)) 

DO  9  J=1 ,3 

CA(J)=CFLAG*CAA(ISL,J) 

CSPOT  IS  THE  SCALAR  POTENTIAL 

CSPCT=CSP3*FLAG»C 

FOR  AN  EDGE  WITH  MULTIPLICITY  MULT,  THE  LOWEST  NUMBERED  FACE 
CONTRIBUTES  TO  MULT  BASIS  FUNCTIONS  ASSOCIATED  WITH  THAT  EDGE, 

WHILE  EACH  REMAINING  FACE  CONTRIBUTES  TO  ONE  BASIS  FUNCTION  ASSOCIATED 
WITH  THAT  EDGE. 

CALL  ZDGMUL( IEDGF , MULTI , NEDGES , MULTS , ISS , IFS , JS1 , JS2) 
INDS= INDSUM ( ISS) 

DO  450  JS=JS1  ,  JS2 
IV=IV+1 
ICOL=INDS+JS 

ZJ3  :  NO  JUNCTION  IN  THIS  SOURCE  TRI ANCLE, 

HAS  JUNCTION  IN  THIS  MATCH  TRIANGLE 

IF(JMF.NE.O)  THEN 

VECTOR  POTENTIAL  DOT  WITH  TESTING  VECTOR 

CJBEMP=CA(1)*VMJUN(1)+CA(2)*VMJUN(2)+CA(3)*VMJUN(3) 

SET  +  TO  VECTOR  POTENTIAL  AND  -  TO  SCALAR  POTENTIAL 

IF (NFIELD . EQ • 1 )CZ( JMROW , ICOL)=CZ( JMROW , ICOL) 

$  + (CJBEMP- CSPOT ) * ANGM 
ENDIF 


DO  ICO  IML= 1 , 3 

IF(NC0NN(3,IM(IML)) . GT ,0)THEN 
T1=TMAT(IML, 1) 
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T2=TMAT(IML,2) 

T3=TMAT(IML ,3) 

FLAG=1 . 

IFCIML.EQ.DTHEN 

IF(NC0NN(1 , IM( 1 ) ) . EQ . NM(3) )FLAG=- 1 . 
ELSEIF (IML .EQ .2) THEN 

IF(NC0NN(1,IM(2)).EQ.NM(1))FLAG=-1. 

ELSE 

IF (NCONN ( 1 , IM (3) ) . EQ . NM (2) ) FLAG=- 1 . 
ENDIF 


C 


IF ( IFS . EQ  .  1  .AND.  IV.EQ.1)THEN 

ARGMNT=DMC( 1) *STHETA*CPHI+DMC(2) *STHETA*SPHI 
$  +DMC(3) *CTHETA 

CARG=CMPLX (0 . , K*ARGMNT) 


ED0TT=EX*T1  +  E';  *T2+EZ*T3 


CET£MP=EDQTT*CEXP(CARG) 


ENDIF 

IF (NFIELD . EQ . 1)CTEMP=CA(1)*T1+CA(2)*T2+CA(3)*T3 
MULTM=NCONN  (3 , IM(IML) ) 

IF  (MULTM  .  GT  .  OTKEN 
IMM=IM(IML) 

C  FOR  AN  EDGE  WITH  MULTIPLICITY  MULT,  THE  LOWEST  NUMBERED  FACE 
C  CONTRIBUTES  TO  MULT  BASIS  FUNCTIONS  ASSOCIATED  WITH  THAT  EDGE, 

C  WHILE  EACH  REMAINING  FACE  CONTRIBUTES  TO  ONE  BASIS  FUNCTION  ASSOCIA 
C  WITH  THAT  EDGE. 

CALL  EDGMULCEDGF  , MULTI  ,NEDGES  .MULTM  ,  IMM  ,  IF~M  , 

$JMI , JM2) 

INDM=INDSUM(IMM) 

DO  50  JM= JM 1 , JM2 
IROW=INDM+ JM 

IF (NFIELD. EO . 1 ) CZ( IROW , ICOL) =CZ ( IROW , ICOL) 

$  +FLAG* (CTEMP-CSPOT) »SM(IML) 

IF ( IFS . EQ . 1 . AND. IV .EQ. 1 ) CV ( IROW) =CV( IROW) + 


$ FLAG* SM( IML) *CETEMP 


C 

C  ZB J  :  HAS  JUNCTION  IN  THIS  SOURCE  TRIANGLE, 

C  NO  JUNCTION  IN  THIS  MATCH  TRIANGLE 

C 

IFCJSF.NE.O.AND.IV.LE.  1)  THEN 

CBJEMP=CAJ(1)*T1+CAJ(2)*T2+CAJ(3)*T3 

IF  (NFIELD  .  F.Q  .  l)CZ(IROW  ,  JSCOL)  =CZ  (IROW  ,  JSCDL) 
$  +FLAG* (CB JEMP-CS JPOT) *SM(IML)*ANGS 

ENDIF 


i:u 


C  VJ:  FORCE  AT  JUNCTION  POINT 
C 

IF ( JMF . NE . 0 . AND . I V . EQ . 1 ) THEN 

EDOTT=EX*VM JUN ( 1 ) +EY*VM JUN (2) +EZ*VM JUN (3) 
CJETEMP=EDOTT*CEXP(CARG) 

IF ( IFS . EQ . 1 . AND . I V . EQ . 1 ) CV ( JMROW) =CV (JMROW) - 

$CJETEMP»ANGM 

ENDIF 

SO  CONTINUE 

ENDIF 

ENDIF 

100  CONTINUE 

4S0  CONTINUE 

ENDIF 

460  CONTINUE 

C 

C  ZJJ  :  HAS  JUNCTION  IN  THIS  SOURCE  TRIANGLE, 

C  HAS  JUNCTION  IN  THIS  MATCH  TRIANGLE 

C 

IFCJSF.NE.O. AND. JMF. NE.O) THEN 
C  VECTOR  POTENTIAL  DOT  WITH  TESTING  VECTOR 

CJ JEMP=CA J ( 1 ) *VMJUN ( 1 ) +CA J (2) *VM JUN (2) +CAJ (3) *VM JUN(3) 

C  SET  +  TO  VECTOR  POTENTIAL  AND  -  TO  SCALAR  POTENTIAL 
IF (NFIELD . EQ . 1 )CZ ( JMROW , JSCOL) =CZ (JMROW , JSCOL) 

$  + (C  J JEMP-CS JrOT) * ANGM* ANGS 
ENDIF 

r 

499  CONTINUE 

ENDIF 

999  CONTINUE 
RETURN 
END 


A. 44  ZWB 

SUBROUTINE  ZWB (DATNOD , NCONN . NBOUND , IEDGF , MULTI , NNODES , NEDGES , 

$  NF  ACES , NUNKNT , CZ , INDSUM ,NWNOD ,NWSEG ,WNODE .NSEGC ,WSEGH , 

$  MXWMLT , MULTW , INSEG , WIRSUM , NUNKNB , 

A  N JCT ,MN JUN ,MN JFACE , ANG , N JFACE , MIFACE , NW JUN , NB JUN) 

C - - - . - . . . - . - . . 

C  THIS  ROUTINE  FILL  OUT  THE  MATRIX  ELEMENTS  OF  ZWB  WHICH  IS  SOURCE  POINT 
C  ON  THE  BODY  AND  MATCH  POINT  ON  THE  WIRE 
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J 


C - - - - - 

REAL  ANGCMNJUN ,MNJFACE) ,XS(3) ,VS(3) ,ZS(3) ,VSJUN(3) 

St  , DATN0DC3 , NNODES) ,TMAT(3,3) ,RK(3,3) ,RMK(3) ,SM(3) 

St  , LAMBDA, K, MU, IMP 

INTEGER  NJFACE(MNJUN.MNJFACE) ,MIFACE(MN JUN) .NBJUN(MNJUN) , 

St  NWJUN(MNJUN)  ,NS(3)  ,IGNDP(3) 

&  , NCONN(3 .NEDGES) ,NBOUND(3 .NFACES) , IEDGF (MULTI ,NEDGES) , 

$  IM(3) , IS (3) .MULTW(NWNOD) ,INSEG(MXWMLT+1 .NWNOD) .WIRSUM(NWNOD) 
DIMENSION  WN0DEC3, NWNOD) ,NSEGC(2 ,NWSEG) ,WSEGH(3 .NWSEG) ,T(3) 

St  , INDSUM(NEDGES) ,AL(3) ,DL(3,3) ,H(3) , 

St  DN  (3 , 3)  , DLN  (3)  ,SN(3)  , DM(3 , 3)  ,  DMC (3)  ,  DLM (3) 

COMPLEX  CWJEMP ,CZ(NUNKNT , NUNKNT) .HTHETA ,HPHI .ETHETA ,EPHI , 

$  EX ,EY ,EZ .EDOTT ,CVPB  ,CSPB , C , Cl (3)  , CAX , CAY ,CAZ , CSPOT .CFLAG , CARG  , 
$  CTEMP .CETEMP ,CP(3)  ,CPP  ,CMM  ,CAJ (3)  ,CAJT(3) ,CA(3) ,CSJPOT 
C 

C  VARIABLES  ASSOCIATED  WITH  IMAGE  PATCH 

$  , CII (3) , CPPI , CMMI , CAI (3) ,CAJTI(3) ,CAA(3,3) ,CX,CJ 
C 

LOGICAL  LOWS ,LOWM, PLUS 
C 

COMMON/PARA/DL ,DET ,H , AL 
COMMON/ GPL ANE/NGNDP , IGNDP 

C 

COMMON/ WAVE/ OMEGA , LAMBDA , K 
COMMON/MEDIUM/DEG2RAD .EPSLON ,MU , IMP , SL ,PI 
COMMON/PARAM/THETA ,PHI .NFIELD 
COMMON/INC/HTHETA ,HPHI .ETHETA ,EPHI 
C  THE  FOLLOWING  LINE  IS  A  STATEMENT  FUNCTION. 

SIZE(X ,Y , Z) =SQRT(X*X+Y*Y+Z*Z) 

C  SET  CONSTANTS. 

CVPB=CMPLX (0 . , IMP/ (4 . *PI) ) 

CSPB=CMPLX(0 . , . 5/ (PI*OMEGA*EPSLON) ) 

C  LOOP  OVER  THE  FACE  NUMBERS  OF  THE  SOURCE  TRIANGLES. 

DO  999  IFS=1 .NFACES 
IIS=1 

IF(IFS.EQ. 1 .OR. NFIELD. LE. 1)THEN 
C  OBTAIN  THE  EDGES  OF  THE  SOURCE  TRIANGLE. 

C  OBTAIN  THE  COORDINATES  OF  THE  SOURCE  TRIANGLE’S  VERTICIES. 

C  STORE  IN  RK(J , I)  1=1,2, 3  K*THE  X,Y,Z  COORDINATES  OF  THE  JTH  VERTEX 
C  OF  THE  SOURCE  TRIANGLE. 

C 

C  OBTAIN  THE  EDGES  OF  THE  SOURCE  TRIANGLE 

CALL  FACEDG (NFACES .NBOUND, IFS , IS) 

C  OBTAIN  THE  VERTICES  OF  THE  SOURCE  TRIANGLE 
CALL  FACVTX(NCONN, NEDGES, IS, NS) 
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C  OBTAIN  THE  COORDINATES  OF  THE  SOURCE  TRIANGLE’S  VERTICIES 
CALL  VTXCRD (DATNOD , NNODES , NS , DN) 

DO  2  1=1,3 
DO  2  J=  1 , 3 

2  RK(I , J)=K*DN(I ,  J) 

DO  88  1=1,3 
IPl=MOD(I ,3)+l 
IMl=MOD(I+l , 3) + 1 
DO  77  J=1 ,3 

77  DLN(J)=DN(IM1 ,J)-DN(IP1,J) 

88  SN ( I ) =SIZE(DLN (1) ,DLN(2) , DLN (3) ) 

C 

C  IF  NJCT=0 ,  NO  JUNCTION  CASE 

C  IF  N JCT= 1 ,  CHECK  IF  ANY  JUNCTION  IN  THIS  SOURCE  TRIANGLE 
C  IF  JSF=0 ,  NO  JUNCTION  IN  THIS  SOURCE  TRIANGLE 
C  IF  JSF=N ,  N=1 ,2,3,  FIND  OUT  ASSOCIATED  PARAMETERS 
C 

IF(NJCT . Eq . 1)  THEN 

C  TO  GET  PARAMATERS  ASSOCIATE  WITH  THIS  JUNCTION 
CALL  JUNPAR ( JSF . DN , NS , IFS , ANGS , V S JUN , JSCOL , 
ft  WIRSUM , MN JUN , MNJFACE , NWNOD , ANG , N JFACE , MIFACE , NW JUN , NB JUN) 

C  ANG?  IS  THE  ANGULAR  DISTRIBUTION  COEFFICIENCY  OF  MATCH  TRIANGLE 
C  SN(JMF)  IS  THE  LENGTH  OF  OPPOSITE  EDGE 
IF (JSF . NE . 0)  ANGS=ANGS/SN( JSF ) 

ELSE 
JSF=0 
END  IF 
C 

*  LOOP  OVER  THE  MATCH  SEGMENTS. 

C 

DO  499  NM=1 ,NWSEG 
C 

*  OBTAIN  COORDINATES  OF  TEST  VECTOR  AND  MATCH  SEGMENT  CENTROID  TIMES  K. 

C 

NMF=NSEGC(1 ,NM) 

NMT=NSEGC(2,NM) 

DO  5  J=1 ,3 

T(J)=.5*(WN0DE(J ,NMT) -WNODE( J , NMF) ) 

RMK(J)=K*WSEGH(J ,NM) 

S  CONTINUE 

C 

*  COMPUTE  QUANTITIES  FOR  CALCULATION  OF  THE  VECTOR  AND  SCALAR  POTENTIALS 
C 

C  CAA ( I ) =  INTEGRAL  OF  (  XSI ( I ) * (EXP (- JKR) -XSING) /R  D  (XSI(I)) 

C  D(XSI(I  +  1)))  IF  XSING=1  THEN  + 1  / (2* AREA) ‘INTEGRAL  OF  XSKD/R 
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C  D(S’)  XSI(I) ,1-1 ,3  DENOTE  ZETA,  XSI  AND  ETA,  XSING=0  OR  1 
C  DL ( I , J )  IS  THE  VECTOR  FROM  THE  I+1TH  VERTEX  TO  THE  ITH  VERTEX 
C  AL(I)  IS  THE  LENGTH  OF  THE  DL(I,J) 

C 

CALL  POTBOD ( JSF , RK , RMK , C , C AA , CA JT , 0) 

IF(JSF.NE.O)  THEN 
ISL=JSF 

C  SET  (+)  TO  CA  (-)  TO  CAJT  (+)  TO  CSJPOT 
FLAG=AL(JSF) 

CFLAG=CVPB*FLAG 

C 

C  CAA( J) , J=1 ,3  ARE  THE  X.Y.Z  COMPONENTS  OF  THE  VECTOR  PONTETIAL 
C  DUE  TO  THE  TRIANGULAR  BASIS  FUNCTION 

C  CAA=(SGN) *MU*AL(I)/4*PI*(CI (1+1) *DL(I-1 ,J)-CI(I-1)*DL(I+1,J)) 
C  CAJT(J)  IS  THE  VECTOR  POTENTIAL  DUE  TO  THE  JUNCTION  PART  OF 
C  THE  JUNCTION  BASIS  FUNCTION 

C  CAJ(J)  IS  THE  VECTOR  POTENTIAL  DUS  TO  THE  JUNCTION 
C  BASIS  FUNCTION 
DO  29  J=1 ,3 

29  CAJ( J)=(CFLAG*CAA( JSF , J) -CVPB*CAJT( J) ) 

C  COMPUTE  CSJPOT  THE  SCALAR  POTENTIAL  ASSOCIATED  WITH  JUNCTION 
CSJPOT=CSPB*C*AL( JSF) 

ENDIF 

IV=0 

DO  460  ISL=1 , 3 
ISS=IS(ISL) 

MULTS=NCONN (3 ,  ISS) 

IF (MULTS . NE . 0)THEN 
IFCISL.EQ. 1)THEN 
FLAG=AL(1) 

IF (NC0NN(1 , IS( 1) ) . EQ .NS(3) )FLAG=-FLAG 
ELSEIF(ISL.EQ .2)THEN 
FLAG=AL(2) 

IF(NCONN( 1 , IS(2) ) . EQ  .  NS( 1 ) ) FLAG=-FLAG 
ELSE 

FLAG=AL(3) 

IF(NC0NN(1 , IS (3) ) . EQ . NS (2) )FLAG=-FLAG 
ENDIF 

CFLAG=CVPB*FLAG 

IP1=M0D(ISL,3)+1 

IM1=M0D(ISL+1.3)+1 

C 

C  CA ( J) , J= 1 , 3  ARE  THE  X,Y,Z  COMPONENTS  OF  THE  VECTOR  PONTETIAL 
C  CA=(SGN)*MU*AL(I)/4*PI*(CI(I  +  1)*DL(I-1,J)-CI(I-1)*DL(I  +  1 ,  J)) 
C 


L 
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DO  9  J=l,3 

9  CA(J)=CFLAG*CAA(ISL,J) 

C 

C  COMPUTE  CSPOT  THE  SCALAR  POTENTIAL. 

CSPOT=CSPB*FLAG*C 

C  FOR  AN  EDGE  WITH  MULTIPLICITY  MULT,  THE  LOWEST  NUMBERED  FACE 
C  CONTRIBUTES  TO  MULT  BASIS  FUNCTIONS  ASSOCIATED  WITH  THAT  EDGE, 

C  WHILE  EACH  REMAINING  FACE  CONTRIBUTES  TO  ONE  BASIS  FUNCTION  ASSOCIATED 
C  WITH  THAT  EDGE. 

CALL  EDGMUL (IEDGF , MULTI , NEDGES , MULTS , ISS , IFS , JS1 , JS2) 
INDS=INDSUM (ISS) 

DO  450  JS= JS 1 , JS2 
IV=IV+1 
ICOL=INDS+JS 

C  COMPUTE  QUANTITIES  ASSOCIATED  WITH  THE  INCIDENT  FIELD. 

CTEMP= (CA(l)*T(l)+CA(2)*T(2)+CA(3)*T(3)) 

C 

*  LOOP  OVER  THE  NODES  ATTACHED  TO  THE  MATCH  SEGMENT. 

C 

DO  250  JMN= 1 , 2 

NODEM=NSEGC( JMN ,NM) 

MULTM=MULTW(NODEM) 

IF (MULTM . GT . 0)THEN 

C 

*  COMPUTE  ROW  INDEX  FOR  SOURCE  SEGMENT. 

C 

INDR=WIRSUM(NODEM) 

C 

*  DETERMINE  WHETHER  SEGMENT  NM  IS  THE  LOWEST  SEGMENT  ATTACHED 

*  TO  SEGMENT  NM  AT  NODE  NODEM.LOOP  OVER  THE  NUMBER  OF  SEGMENTS  ATTACHED 

*  TO  SEGMENT  NM  AT  NODE  NODEM . 

C 

IF (NODEM. EQ.NWJUN(MNJUN))  THEN 

JM1  =  1 

JM2=1 

LOWM=. FALSE. 

ELSE 

CALL  NODMUL ( INSEG , MXWMLT , NWNOD , NODEM , MULTM , NM , 

>  JM1 , JM2 ,LOWM) 

ENDIF 

DO  200  JM= JM1 , JM2 
C 

*  DETERMINE  WHETHER  SEGMENT  IS  A  PLUS  OR  MINUS  SEGMENT 
C 

IFCNODEM . EQ . NSEGC(2 , NM) )THEN 
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SGN1=1 . 

ELSE 

SGN1=- 1 . 

END  IF 

IF (LOWM)THEN 
C 

*  CASE:  SEGMENT  NM  IS  THE  LOWEST  NUMBERED  SEGMENT  ATTACHED  TO  NODE 

*  NODEM.  DIRECTION  OF  THE  BASIS  FUNCTION  IS  DETERMINED  BY  THE  ATTACHED 

*  SEGMENT.  OBTAIN  ATTACHED  SEGMENT. 

C 

NSEGAM=INSEG(JM+1 ,NODEM) 

IF(NSEGC(2,NM) . EQ . NSEGC( 1 , NSEGAM) .OR. 

>  NSEGCCl ,NM) . EQ . NSEGC (2 .NSEGAM) )THEN 

SGN=1 . 

ELSE 

SGN=-1. 

ENDIF 
ELSE 
SGN= 1 . 

ENDIF 

I F ( NODEM . EQ . NW JUN (MN JUN ) ) THEN 

IF(N0DEM . EQ . NSEGC (2 , NM) )THEN 

SGN=- 1 . 

SGN 1  =  1 . 

ELSE 
SGN= 1 . 

SGN1—1. 

ENDIF 

ENDIF 

IROW=INDR+JM 

IFCNFIELD.EQ. l)CZ(IROW , ICOL) =CZ(IROW , ICOL) 

$  +SGN  * (CTEMP-CSPOT*SGN 1 ) 

C 

C  ZWJ :  HAS  JUNCTION  IN  THIS  SOURCE  TRIANGLE 
C 

IFUSF.NE.O.AND.IV.LE.  1)THEN 
C  VECTOR  POTENTIAL  DOT  WITH  TESTING  VECTOR 

CWJEMP=CAJ(1)*T(1)+CAJ(2)*T(2)+CAJ(3)*T(3) 

IF (NFIELD . EQ . 1 ) CZ( IROW , JSCOL)=CZ (IROW , JSCOL) 
$  +SGN*(CWJEMP-CSJPOT*SGNl)*ANGS 

ENDIF 
C 

200  CONTINUE 

ENDIF 

2S0  CONTINUE 
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450  CONTINUE 

ENDIF 

460  CONTINUE 

499  CONTINUE 

ENDIF 

999  CONTINUE 
RETURN 
END 


A. 45  PATTEN 

SUBROUTINE  PATTEN (DATNOD , NCONN , NBOUND , IEDGF , MULTI , NNODES , WIRSUM , 
SNEDGES , NFACES , NUNKNT , C J , INDSUM , IPAT , N JCT , MN JUN , MNJFACE , NWNOD , 

SANG , NJFACE ,MIFACE ,NWJUN .NBJUN .MXWMLT ,NWSEG , NUNKNB ,WNODE ,MULTW , 
SNSEGC , WSEGH , RAD , INSEG ) 

C- - - - - - - - 

C  INPUT: 

DATNOD C I , J)  1  =  1, 2, 3  ARE  THE  X,Y,Z  COMPONENTS  OF  THE  JTH  VERTEX. 

THE  JTH  EDGE  RUNS  FROM  NCCNN(l.J)  TO  NC0NN(2,J).  NC0NN(3,J)  IS  THE 
C  MULTIPLICITY  OF  THE  JTH  EDGE (I .E.  THE  NUMBER  OF  UNKNOWNS  ASSOCIATED 
C  WITH  THAT  EDGE.) 

C  NBOUND(I.J)  1=1, 2, 3  ARE  THE  3  EDGES  OF  THE  JTH  FACE. 

C  NNODES  IS  THE  NUMBER  OF  NODES  ON  THE  BODY. 

C  NEDGES  IS  THE  NUMBER  OF  EDGES. 

C  NFACES  IS  THE  NUMBER  OF  BODY  FACES. 

C  NUNKNT  IS  THE  TOTAL  NUMBER  OF  UNKNOWNS. 

C  CJ  IS  A  COMPLEX  ARRAY  CONTAINING  THE  CURRRENT  AMPLITUDES 
C  ALSO  THE  COMMON  FIELDS  /MEDIUM, FINDIF, WAVE/  ARE  COMPUTED  IN  INDATA 
C  AND  IN  SOLTN. 

C 

C  OUTPUT: 

C  ES.HS  ARE  ARRAYS  CONTAINING  THE  FIELD  VALUES 
C  AT  THE  OBSERVATION  POINTS. 

C 

REAL  ANG(MNJUN, MNJFACE) ,VSJUN(3) ,H(3) 

INTEGER  NJFACE(MNJUN, MNJFACE) .MIFACE(MNJUN) , NBJUN (MN JUN) , 
t  NWJUN(MNJUN) .WIRSUM(NWNOD) 

C 

COMPLEX  CV(IOO) 

DIMENSION  WN0DEC3, NWNOD) ,MULTW( NWNOD) ,NSEGC(2 ,NWSEG) , 

>  WSEGH (3 , NWSEG) , RAD(NWSEG) , INSEG (MXWMLT+ 1 , NWNOD) 

C 
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INTEGER  NC0NN(3,NEDGES) ,  NB0UND(3 .NFACES) , IEDGF (MULTI , WEDGES) , 
$IS(3) .INDSUM(NEDGES) ,NS(3) 

DIMENSION  DATN0D(3 .NNQDES) ,TMAT(3,3) ,RK(3,3) ,RMK(3) ,RFLD(3,S)  , 
$DK(3) 

COMPLEX  ETH(IOO.IOO) ,EPH(100, 100) ,HSQR,RCS(10 ,10) .SIGMA. 

$ , ETHSQR( 10 ,10) , EPHSQR( 10 , 10) 

COMPLEX  ES(3) ,HS(3) , CJ (NUNKNT) ,CH , CAXJ , CAYJ , CAZ J ,CA (3) ,CI(3) , 
$CVPB , CSPB , C , CVEC (3 ) , CAX , CAY , CAZ , CSPOT , CFLAG , 

ICTEMP .CSPOTJ ,CP(3) 

COMPLEX  HTHETA ,HPHI .ETHETA ,EPHI 
REAL  LAMBDA, K, MU, IMP 

REAL  MAGH(3 ,3) ,LMINK ,LMAXK ,HHAT(3 ,3) ,DN(3,3) 

REAL  L (3 , 3) , LHAT(3 ,3) ,NHAT(3) ,MAGL(3) 

COMMON/PARA/L ,MAGL , AREAX2 , H 
COMMON/WAVE/OMEGA, LAMBDA ,K 
COMMON/FIND IF/NNFLD , DX , DY , DZ 
C0MM0N/MEDIUM/DEG2RAD , EPSLON , MU , IMP , SL , PI 
COMMON/PAT/PHI 1 ,  PHI2  ,  NPHI , THETA  1 , THETA2 , NTHETA 
COMMON/INC/HTHETA  ,HPHI .ETHETA ,EPHI 
C  SET  CONSTANTS. 

CVPB=CMPLX(0 . , IMP/ (4 . *PI ) ) 

WRITE(10, 101) 

101  FORMAT (X , /25X , ’ FAR  FIELD  PATTERN’,/) 

WRITE (10 , 102) 

102  FORMAT(X , 1 ITHETA ’ , 2X , ’THETA ’ , 2X , ’ IPHI ’ , 2X , ’ PHI ’ ,3X , 

&’ETH( ITHETA. IPHI) ’ ,5X, ’ EPH (ITHETA , IPHI ) ’ ,/) 

C  LOOP  OVER  FIELD  OBSERVATION  POINTS. 

IF (NPHI .EQ. 1)THEN 

DPHI=0 

ELSE 

DPHI=(PHI2-PHI 1) /FLOAT (NPHI -1 ) 

ENDIF 

IF(NTHETA.EQ. 1)THEN 

DTHETA=0 

ELSE 

DTHETA=(THETA2-THETA1) /FLO AT (NTHETA- 1) 

ENDIF 

DO  999  ITHETA=1 .NTHETA 
THETA=THETA1+ (ITHETA- 1)*DTHETA 
DO  998  IPHI=1,NPHI 
PHI=PHI1+(IPHI-1>*DPHI 

RMK(1)=SIND(THETA)*C0SD(PHI) 

RMK (2)=SIND(THETA) *SIND(PHI ) 

RMK(3)=C0SD(THETA) 

ETH( ITHETA, IPHI )=(0. ,0.) 
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EPH(ITHETA , IPHI)=(0 . ,0.) 

CALL  BPATTN ( IPAT , DATNOD , NCONN , NBOUND , IEDGF , MULTI , MODES .NEDGES , 

$  NFACES , NUNKNT , C J , CV , INDSUM , N JCT , MN JUN , MNJFACE , NWNOD , WIRSUM , 

$  ANG , NJFACE , MIFACE . NWJUN , NB  JUN , RMK , ETH , EPH , ITHETA , IPHI , THETA , 

$  PHI) 

C - - - 

IF (N JCT . GE . 0)THEN 

CALL  HP ATTN ( IP AT , MXWMLT , NWNOD , NWSEG , NUNKNB , NUNKNT , WNODE , MULTW , 
$NSEGC , WSEGH , RAD , INSEG , C J , CV .WIRSUM , NWJUN , MN JUN , RMK , ETH , EPH , ITHETA , 
$  IPHI, THETA, PHI) 

ENDIF 

C - 

C  COMPUTE  RADAR  CROSS  SECTION 
C 

C  ETHSQRC ITHETA, IPHI )=ETH (ITHETA, IPHI )*CONJG (ETH (ITHETA, IPHI)) 

C  EPHSQR( ITHETA , IPHI)=EPH( ITHETA , IPHI )*CONJG (EPH ( ITHETA , IPHI) ) 

C  SIGMA=4 . *PI* (ETHSQR( ITHETA , IPHI)+EPHSQR( ITHETA , IPHI) ) / 

C  1  (IMP*IMP) 

C  HSQR=HTHETA*CONJG(HTHETA) +HPHI*CON JG(HPHI ) 

C  RCS(ITHETA,IPHI)=SIGMA/HSQR 

C 

C  WRITE( IS ,*) RCS( ITHETA  ,  IPHI) 

C  ICO!  FORMAT (1X,2I6,2F10.5) 

99S  CONTINUE 
999  CONTINUE 
RETURN 
END 


A. 46  BPATTN 

0======================================================================= 

SUBROUTINE  BPATTN (IPAT , DATNOD , NCONN , NBOUND , IEDGF , MULTI , NNODES , 
JNEDGES , NFACES , NUNKNT , C J , CV .INDSUM , N JCT , MN JUN , MNJFACE , NWNOD .WIRSUM , 
$  ANG , NJFACE .MIFACE , NWJUN , NB JUN , RMK , ETH , EPH , ITHETA , IPHI , THETA , 

$  PHI) 

C . . - - - 

COMPLEX  ETH (100, 100) , EPH (100, 100) ,CAXJ ,CAYJ ,CAZJ 
REAL  ANG(MNJUN, MNJFACE) ,VMJUN(3) ,VSJUN(3) ,H(3) 

INTEGER  NJFACE(MNJUN, MNJFACE) ,MIFACE(MN JUN) .NBJUN(MNJUN) , 

&  NWJUN(MNJUN) .WIRSUM(NWNOD) 

C 

INTEGER  NC0NN(3,NEDGES) , NB0UND(3 .NFACES) , IEDGF (MULTI , NEDGES) , 

$  IM(3) , IS(3) ,NS(3) , NM(3) , IGNDP(3) 
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DIMENSION  INDSUM(NEDGES) ,DN(3,3) ,DM(3,3) ,DMC(3) ,DLM(3) ,AL(3) 

$  ,SN(3) ,DLN(3) .DATNOD (3 .NNODES) ,TMAT(3,3) ,RK(3,3) ,RMK(3) , 

$  SM(3) ,DL(3,3) 

COMPLEX  CJ(NUNKNT) , CV(NUNKNT) , CVPB ,C , Cl (3) ,CA(3) .CFLAG , 

$CAJ (3) ,CAJT(3) 

C 

C  VARIABLES  ASSOCIATED  WITH  IMAGE  PATCH 
$ ,  CAA(3 ,3) 

C 

REAL  LAMBDA, K, MU, IMP 
COMMON/PARA/DL , DET , H , AL 
COMMON/WAVE/OMEGA , LAMBDA  ,  K 
C0MM0N/MEDIUM/DEG2RAD .EPSLON , MU , IMP , SL , PI 
COMMON/INC/HTHETA ,HPHI .ETHETA ,EPHI 
COMMON /GPL ANE/NGHDP , IGNDP 
SIZE(X ,Y , Z)=SQRT(X*X+Y*Y+Z*2) 

CVPB=CMPLX (0 . , IMP/ (4 . *PI ) ) 

C 

DO  999  IFS= 1 , NFACES 
IIS=1 

C  OBTAIN  THE  EDGES  OF  THE  SOURCE  TRIANGLE 

CALL  FACEDGCNFACES , NBOUND , IFS  ,  IS) 

C  OBTAIN  THE  VERTICES  OF  THE  SOURCE  TRIANGLE 
CALL  FACVTX (NCONN , NEDGES , IS , NS) 

C  OBTAIN  THE  COORDINATES  OF  THE  SOURCE  TRIANGLE’S  VERTICIES 
CALL  VTXCRD (DATNOD, NNODES, NS,  DN) 

DO  2  1=1,3 
DO  2  J=1 ,3 

2  RK(I,J)=K*DN(I,J) 

DO  88  1=1,3 
IP1=M0D(I ,3)+l 
IM1=M0D(I+1,3)+1 
DO  77  J=1 ,3 

77  DLN(J)=DN(IM1 , J)-DN(IP1 ,J) 

88  SN(I)=SIZE(DLN(1) ,DLN(2) ,DLN(3)) 

C  IF  NJCT=0 ,  NO  JUNCTION  CASE 

C  IF  NJCT=1 ,  CHECK  IF  ANY  JUNCTION  IN  THIS  SOURCE  TRIANGLE 
C  IF  JSF=0 ,  NO  JUNCTION  IN  THIS  SOURCE  TRIANGLE 
C  IF  JSF=N ,  N=1 ,2,3,  FIND  OUT  ASSOCIATED  PARAMETERS 
C 

IFCNJCT.EQ. 1)  THEN 

C  TO  FIND  PARAMATERS  ASSOCIATE  WITH  THIS  JUNCTION 
CALL  JUNPAR(JSF,DN ,NS , IFS , ANGS , VSJUN , JSCOL , 
t  WIRSUM.MNJUN ,MN JFACE .NWNOD , ANG ,N JFACE .MIFACE , NW JUN ,NBJUN) 

C  ANGS  IS  THE  ANGULAR  DISTRIBUTION  COEFFICIENCY  OF  SOURCE  TRIANGLE 
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C  SN(JMF)  IS  THE  LENGTH  OF  OPPOSITE  EDGE 
IF(JSF.NE.O)  ANGS=ANGS/SN(JSF) 

ELSE 

JSF=0 

ENDIF 

C 

c 

*  COMPUTE  QUANTITIES  FOR  CALCULATION  OF  THE  VECTOR  AND  SCALAR  POTENTIALS 
C 

C  CAA ( I ) =  INTEGRAL  OF  (  XSI ( I ) * (EXP (- JKR) -XSING) /R  D  (XSI (I ) ) 

C  D(XSI(I+1)))  IF  XSING=1  THEN  + 1/  (2*  AREA)  *  INTEGRAL  OF  XSI(I)/R 
C  D(S’)  XSI (I) ,1=1,3  DENOTE  ZETA ,  XSI  AND  ETA,  XSING=0  OR  1 
C  DL(I,J)  IS  THE  VECTOR  FROM  THE  I+1TH  VERTEX  TO  THE  ITH  VERTEX 
C  AL ( I )  IS  THE  LENGTH  OF  THE  DL(I,J) 

C 

CALL  POTBOD( JSF ,RK ,RMK ,C ,CAA .CAJT, IPAT) 

IF(JSF.NE.O)  THEN 
ISL= JSF 

C  SET  (+)  TO  CA  (-)  TO  CAJT  (+)  TO  CSJPOT 
FLAG=AL( JSF) 

CFLAG=CVPB*FLAG 

C  CAA(J) , J  = 1 , 3  ARE  THE  X,Y,Z  COMPONENTS  OF  THE  VECTOR  PONTETI AL 
C  DUE  TO  THE  TRIANGULAR  BASIS  FUNCTION 

C  CAA= (SGN) *MU*AL(I)/4»PI* (Cl (1+ 1) *DL(I- 1 , J) -Cl (I- 1 ) *DL( 1  + 1 ,  J) ^ 

C  CAJT(J)  IS  THE  VECTOR  POTENTIAL  DUE  TO  THE  JUNCTION  PART  OF 
C  THE  JUNCTION  BASIS  FUNCTION 

C  CAJ(J)  IS  THE  VECTOR  POTENTIAL  DUE  TO  THE  JUNCTION 
C  BASIS  FUNCTION 

C  SET  (+)  TO  CA  (-)  TO  CAJT  (+)  TO  CSJPOT 
C 

DO  29  >1,3 

29  CA J ( J)  =  (CFLAG*CAA ( JSF  ,  J) -CVPB*CA JT( J) ) 

C 

ENDIF 

IV=0 

DO  460  ISL=1 ,3 
ISS=IS(ISL) 

MULTS=NC0NN(3 , ISS) 

IFCMULTS . NE . 0)THEN 
IFCISL.EQ. 1)THEN 
FLAG=AL(1) 

IF(NC0NN(1 , IS ( 1 ) ) . EQ . NS(3) ) FLAG=-FLAG 
ELSEIF(ISL . EQ . 2)THEN 
FLAG=AL(2) 
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IF (NCCNN ( 1 ,IS(2)) . EQ . NS(1) ) FLAG=-FLAG 
ELSE 

FLAG=AL(3) 

IF(NC0NN(1 ,IS(3)) . EQ . NS(2) ) FLAG=-FLAG 
ENDIF 

CFLAG=CVPB»FLAG 
IP1=M0D(ISL,3)+1 
IM1=M0D(IP1 ,3)+l 

C 

C  CA(J) ,J=1,3  ARE  THE  X,Y,Z  COMPONENTS  OF  THE  VECTOR  PONTETI AL 
C  CA=(SGN) *MU*AL(I)/4*PI* (Cl (I+1)*DL(I- 1 ,J)-CI(I-1)*DL(I+1,J)) 
C 


DO  9  J=1 ,3 

9  CA ( J) =CFLAG*CAA ( ISL  ,  J ) 

C 

C  FOR  AN  EDGE  WITH  MULTIPLICITY  MULT,  THE  LOWEST  NUMBERED  FACE 
C  CONTRIBUTES  TO  MULT  BASIS  FUNCTIONS  ASSOCIATED  WITH  THAT  EDGE, 

C  WHILE  EACH  REMAINING  FACE  CONTRIBUTES  TO  ONE  BASIS  FUNCTION  ASSOCIATED 
C  WITH  THAT  EDGE. 

IF(MULTS . NE . 0)THEN 

CALL  EDGMUL(IEDGF .MULTI , NEDGES , MULTS , ISS , IFS , JSl , JS2) 
INPS=INDSUM ( ISS) 

DO  450  JS  =  JS  1 , JS2 
IV=IV+1 


ICOL=INDS+ JS 


C 

CAXJ=CA(1)*CJ(IC0L)/K 
CAYJ=CA(2)*CJ(IC0L)/K 
CAZJ=CA(3)*CJ(IC0L)/K 
CAZJ=CA(3) *CJ (ICOL)/K 
C 

C  IT  HAS  JUNCTION  IN  THIS  SOURCE  TRIANGLE, 

IF( JSF . NE . 0 . AND . IV . LE . 1 )  THEN 

CAXJ=CAXJ+CAJ(1)*CJ ( JSCOL) /K 
CAYJ=CAYJ+CA J(2) *CJ( JSCOL) /K 
CAZJ=CAZJ+CA J  (3)  *CJ(  JSCOD/K 


ENDIF 


1 

2 

3 

1 

2 


ETH ( ITHETA , IPHI )=ETH (ITHETA , IPHI ) 

-CAXJ*COSD (THETA) *COSD (PHI) 
-CAYJ*COSD (THETA) *SIND (PHI) 
+CAZJ*SIND (THETA) 

EPH ( ITHETA , IPHI ) =EPH( ITHETA , IPHI ) 

+CAX J*SIND(PHI ) 
-CAYJ*COSD(PHI) 
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450  CONTINUE 

ENDIF 
ENDIF 

460  CONTINUE 

999  CONTINUE 

IF(N JCT . LT . 0)THEN 

WRITE(10 , 1000) ITHETA .THETA . IPHI .PHI , ETH (ITHETA , IPHI) , EPH(ITh’ETA , 
1IPHI) 

1000  FORMAT(I5,F8.2,I5,r3.2,4(lPE10.2)) 

ENDIF 

RETURN 

END 


A. 47  WPATTN 


SUBROUTINE  WPATTN ( IPAT , MXWMLT , NWNOD , NWSEG .NUNKNB .NUNKNT .WNCDE , 
$MULTW  ,  NSEGC ,  WSEGH  ,  RAD  ,  I  NS  EG  ,  C  J  .  CV  ,  WIRS’JM  ,  NW  JUN  ,  MNJUN  .  RM  ,  ETH  ,  EPH  , 
$ ITHETA, IPHI, THETA. PHI) 

C- - - 

COMPLEX  ETHC100, 100) , EPH ( 100 , 100) , CAXJ , CAYJ , CAZJ 
DIMENSION  WN0DEC3, NWNOD) , MULTW (NWNOD)  , NSEGC (2 .NWSEG) , 

>  WSEGH(3, NWSEG) .RAD(NWSEG) , INSEG(MXWMLT+1 .NWNOD) , 

>  RMK (3) ,SH(3) , RSK (3 )  ,T(3)  ,RM(3) 

COMPLEX  CJ(NUNKNT) .CV(NUNKNT) , 

>  CSPW .HTHETA ,HPHI .ETHETA ,EPHI ,EX ,EY ,EE , ANS(3)  . 

>  SP0T,VAP(3) ,VAM(3) ,SSP0T,VA(3) 

>  , CKRED .CKTOT .CKSELF .CANS 
INTEGER  WIRSUM(NWNOD) , NW JUN (MNJUN) 

REAL  LAMBDA , K ,MU, IMP 

EXTERNAL  CKRED, CKTOT, CKSELF 
LOGICAL  LOWS, LOWM, PLUS 

SAVE  /WAVE/ , /PARAM/ , /INC/ , /MEDIUM/ , /WKERNL/ , /WIRE/ , /WKER/ 
COMMON/POT/NM, NS, DEL, DELS, DELH ,DELRH ,RVPW , CSPW, RADMKS 
COMMON/WAVE/OMEGA , LAMBDA , K 
C0MM0N/MEDIUM/DEG2RAD .EPSLON ,MU , IMP.SL ,PI 
COMMON/INC/HTHETA , HPHI , ETHETA, EPHI 
COMMON/WKERNL/RSK ,SH ,RMK , RADSK .RADSKS 
COMMON /WKER/ DP AR , RHO , RHOPR .RHOPRS , RHOMRS 
COMMON/WIRE/IQUADW 
COMMON/WIRSLF/IQWS 
r 

*  SET  CONSTANTS. 
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IO!JAD=IQUADW 

IQUAWS=IQWS 

PI4=4.*FI 

RVPW=HU/PI4 

CSPW=CMPLX (0 . ,1 ,/(0MEGA*EPSL0N*PI4)) 

DO  5  J=1 ,3 
5  RMK(J)=RM(J) 

C 

*  LOOP  OVER  THE  SOURCE  SEGMENTS. 

DC  1000  NS=  1 , NWSEG 
RADSK=K*RAD(NS) 

RADSKS=RADSK*RADSK 
DELRH= 15 . *RADSK 

C 

«  OBTAIN  K*  THE  COORDINATES  OF  THE  SOURCE  SEGMENT  CENTROID 

C 

NSF=NSEGC ( 1 , NS) 

NST=NSEGC(2,NS) 

DO  2  J=1 ,3 

RSK ( J) =K*WSEGH ( J , NS) 

SH ( J) =K* (WNODEC J , NST) -WN3DE ( J , NSF ) ) 

2  CONTINUE 

DEL=SQRT(SH(1)*SH(1)+SHC2)*SHC2)+SH(3)*SHC3) ) 

DELS=DEL*DEL 
DELH= . 5*DEL 
DO  4  J=1 ,3 

SH(J)=SH(J)/DEL 
4  CONTINUE 

C 

*  LOOP  OVER  THE  MATCH  SEGMENTS. 

r 

*  COMPUTE  QUANTITIES  FOR  CALCULATION  OF  THE  VECTOR  AND  SCALAR  POTENTIALS 
C 

CALL  POTWIR(SSPOT,VAP,VAM,IPAT) 
lv=0 
C 

*  LOOP  OVER  NODES  ATTACHED  TO  THE  SOURCE  SEGMENT. 

C 

DO  400  JNS= 1 , 2 

NODES=NSEGC ( JNS , NS ) 

MULTS=MULTW( NODES) 

IF (MULTS . GT . 0)THEN 
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*  COMPUTE  COLUMN  INDEX  FOR  SOURCE  SEGMENT. 

C 

INDC=WIRSUM(NODES) 

C 

*  DETERMINE  WHETHER  SEGMENT  NS  IS  THE  LOWEST  SEGMENT  ATTACHED  TO  NODE 

*  NODES. LOOP  OVER  THE  NUMBER  OF  SEGMENTS  ATTACHED  TO  NS  AT  NODE  NODES 

C 

CALL  NODMUL ( INSEG , MXWMLT , NWNOD , NODES, MULTS , NS, JS1 ,  JS2, 

>  LOWS) 

IF (LOWS . AND . NODES . EQ . NWJUN (MNJUN) )  THEN 
JS1  =  1 
JS2=  1 

LOWS=. FALSE. 

ENDIF 

DO  300  J=JS1 , JS2 
ICOL=INDC+ J 
IV=IV+1 

IF (NODES . EQ . NSEGC(2 , NS ) ) THEN 
PLUS= . TRUE . 

ELSE 

PLUS=. FALSE. 

ENDIF 

IF (LOWS) THEN 

C 

*  OBTAIN  THE  ATTACKED  SEGMENT. 

C 

NSEGAS=INSEG(J+1 .NODES) 

*  SGN=+1  IF  SEGMENT  NS  &  ATTACHED  SEGMENT  RUN  IN  THE  SAME  DIRECTION, 

*  SGN=- 1  IF  SEGMENT  NS  &  ATTACHED  SEGMENT  RUN  IN  THE  OPPOSITE  DIRECTIC 
C 

IF (NSEGC(2 , NS) . EQ . N5EGC ( 1 , NSEGAS) .OR. 

>  NSEGC(l.NS) ,EQ.NSEGC(2, NSEGAS) )THEN 
SGN=  1  . 

ELSE 
SGN  =  - 1 . 

ENDIF 
ELSE 
SGN= 1 . 

ENDIF 


*  COMPUTE  APPROPRIATE  VECTOR  AND  SCALAR  POTENTIALS. 
IF(PLUS)THEN 
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c 

C  FOR  PLUS  SOURCE  SEGMENT  SET  SIGN=  (-1)  TO  VECTOR  AND  SCALAR  POTENTIALS 
C 

IF (NODES . EQ . NW JUN (MN JUN ) )  SGN=- 1 . 

DO  30  JJ=1 ,3 

VA( J J)=VAP(JJ)*5GN 
30  CONTINUE 

ELSE 
C 

C  FOR  MINUS  SOURCE  SEGMENT  SET  SIGN=  (+1)  TO  VECTOR  POTENTIAL  AND 
C  (-1)  TO  SCALAR  POTENTIALS 


IF(NODES . EQ . NWJUN (MNJUN) )  SGN=1 . 

DO  40  JJ=1 ,3 

VA(JJ)=VAM(JJ)*SGN 
40  CONTINUE 

ENDIF 


C 

CAX J=VA ( 1 ) *CJ(ICOL) /K*CMPLX (C . , OMEGA) 

CAY J=VA (2) *CJ(ICOL) /K*CMPLX (0 . .OMEGA) 
CAZJ=VA(3)*CJ(IC0L)/K*CMPLX(0. .OMEGA) 

ETH ( ITHETA , IPHI ) =ETH ( ITHETA , IPKI ) 

1  -CAXJ*COSD (THETA) *COSD (PHI ) 

2  -C AY J*COSD (THETA) * SIND (PHI) 

3  +CAZJ* SIND (THETA) 

EPH ( ITHETA , IPHI ) =EPH ( ITHETA , IPHI ) 

1  +CAXJ*SIND(PHI) 

2  -CAYJ*COSD(PHI) 


300  CONTINUE 

ENDIF 

400  CONTINUE 

1000  CONTINUE 

WRITE(10 . 1 100) ITHETA .THETA  .IPHI  , PHI , ETH (ITHETA , IPHI) , EPH (ITHETA , 
1 IPHI ) 

1100  F0RMAT(IS,F8.2,I5,F8.2,4(1PE10.2)) 

C  1100  FORMAT(I5,F10.3,IS,F10.3.4(1PE15.5)) 

RETURN 

END 


A. 48  CHARGE 

C= ================================================= =============== 

SUBROUTINE  CHARGE(N JCT . Cl , DATNOD . NCONN , NBOUND . NNODES . NEDGES , 
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$  NFACES , NUNKNT , NWNOD , NWSEG , NUNKNB , WNODE , WIRSUM , NSEGC , MULTW , 

$  MNJUN , MNJFACE , ANG , N JFACE , MIFACE , NWJUN , NB JUN , INDSUM , 

$  IEDGF .MULTI , INSEG , MXWMLT) 

c - 

C 

C  THIS  SUBROUTINE  COMPUTES  THE  CHARGE  DISTRIBUTION  ON  THE 
C  BODY. THE  CHARGE  DENSITY  IS  COMPUTED  AT  THE  CENTROID  OF 
C  EACH  TRIANGLE. 

C 

IMPLICIT  COMPLEX  (C) 

COMPLEX  Cl (NUNKNT) 

REAL  ANGCMNJUN .MNJFACE) ,VSJUN(3) 

INTEGER  NJFACECMNJUN, MNJFACE) .MTFACE(MNJUN) , NB JUN (MNJUN)  , 
t  NWJUN(MNJUN)  , INSEG(MXWMLT+ 1  .NWNOD) 

DIMENSION  DATN0D(3  .NNODES) 

INTEGER  NC0NN(3 , NEDGES) , NBOUND (3 , NFACES) , INDSUM(NEDGES) , 
$WIRSUM(NWNOD) . NSEGC(2 , NWSEG) .MULTW (NWNOD) 

REAL  WN0DEC3, NWNOD) 

C 

C  COMPUTE  CHARGE  DENSITY  ON  THE  BODIES 
C 

CALL  5BODY(NJCT, Cl. DATNCD , NCONN . NBOUND, NNODES, NEDGES, 

INFACES , NUNKNT , NUNKNB , INDSUM , 

$  WIRSUM , MNJUN .MNJFACE , NWNOD , ANG , N JFACE , MIFACE , NWJUN , NB JUN , 
SIEDGF, MULTI) 

COMPUTE  CHARGE  DENSITY  ON  THE  WIRES 
C 

IF(NJCT.GE.C) THEN 

CALL  QWIRE(CI .NWNOD, NWSEG, NUNKNB, NUNKNT, WNODE, WIRSUM, NSEGC, 
$  MULTW , MNJUN , NWJUN , INSEG , MXWMLT) 

END  IF 
C 

RETURN 

END 


A. 49  QBODY 

SUBROUTINE  QBODY (NJCT , Cl , DATNOD , NCONN , NBOUND , NNODES , NEDGES , 
JNFACES , NUNKNT , NUNKNB  ,  INDSUM , 

$  WIRSUM, MNJUN .MNJFACE, NWNOD, ANG ,N JFACE, MIFACE, NWJUN .NBJUN, 
SIEDGF, MULTI) 


C - - - - - - - 

c 

C  THIS  SUBROUTINE  COMPUTES  THE  CHARGE  DISTRIBUTION  ON  THE 
C  BODY. THE  CHARGE  DENSITY  IS  COMPUTED  AT  THE  CENTROID  OF 
C  EACH  TRIANGLE. 

C 

IMPLICIT  COMPLEX  (C) 

COMPLEX  CI(NUNKNT) ,CS(3) 

C 

REAL  ANG (MNJUN ,MN JFACE) , VSJUN (3) 

INTEGER  N JFACE (MNJUN ,MN JFACE) , MIFACE(MN JUN) , NB JUN(MN JUN) , 
ft  NWJUN(MNJUN) , WIRSUM(NWNOD) 

C 

DIMENSION  DATN0D(3 , NNODES) ,DN(3,3) , IS (3) ,NS(3) ,DLM(3) ,SM(3) 
INTEGER  NCONN (3 , NEDGES) ,NB0UND(3 , NFACES) , INDSUM(NEDGES) 

REAL  LAMBDA ,K,MU, IMP 

COMMON/MEDIUM/DEG2RAD .EPSLQN ,MU , IMP ,SL ,PI 
COMMON/WAVE/OMEGA , LAMBDA , K 
SIZE(X , Y , Z)=SQRT (X*X+Y*Y+Z*2) 

CONSTl=CMPLX (0.0,1. O/OMEGA) 

CHARGE=CMPLX(0. 0,0.0) 

WRITE(11 , 101) 

101  F0RMAT(X,/25X, ’SURFACE  CHARGE’,/) 

WRITE (11, 102) 

1C2  FORMAT (IX, ’FACE  NUMBER’ , 10X , ’CHARGE  DENSITY  (COULOMBS/SQ . METER) ’ ) 
WRITE( 1 1 , 103) 

103  FORMAT (/20X, ’REAL’ ,11X, ’IMAGINARY’ ,8X, ’MAGNITUDE’ , 10X, ’PHASE’) 

DO  999  IFS=1, NFACES 
C 

C  OBTAIN  THE  EDGES  OF  THE  TRIANGLE. 

d 

CALL  FACEDG (NFACES , NBOUND , IFS , IS) 

C 

C  OBTAIN  THE  VERTICES  CONNECTED  TO  THESE  EDGES. 

C 

CALL  FACVTX(NCONN, NEDGES, IS, NS) 

C 

C  COMPUTE  THE  COORDINATES  OF  EACH  VERTEX. 

C 

CALL  VTXCRD(DATNOD, NNODES, NS, DN) 

C 

IF(NJCT . EQ . 1)THEN 
C 

C  TO  FIND  PARAMATERS  ASSOCIATE  WITH  THIS  JUNCTION 
C 
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CALL  JUNPAR( JSF ,DN , NS , IFS , ANGS , VSJUN , JSCOL , 
ft  WIRSUM , MNJUN , MNJFACE , NWNOD , ANG , N JFACE , MIFACE , NW JUN , NB JUN) 

C 

C  ANGM  IS  THE  ANGULAR  DISTRIBUTION  COEFFICIENCY  OF  MATCH  TRIANGLE 
C 

ELSE 

JSF=0 

ENDIF 

C  CALCULATE  THE  AREA  OF  THE  TRIANGLE. 

C 

AF.1=(DN(2,2)-DN(1 ,2) ) * (DN(3 ,3) -DN(1 ,3) ) - (DN(3 ,2) -DN(1 ,2))* 
ft  (DN (2 ,3) -DN (1,3)) 

AR2=(DN(2 ,3)-DN(l ,3))»(DN(3,1)-DN(1,1))-(DN(3,3)-DN(1,3))* 
ft  ( DN  C 2 , 1) -DN (1,1)) 

AR3=(DN(2 , 1) -DN( 1 ,1))*(DN(3,2)-DN(1,2))-(DN(3,1) -DN( 1 , 1) ) * 
ft  (DN (2 ,2) -DN (1,2)) 

AREA=SQRT(ARl**2+AR2**2+AR3**2)/2.0 

C 

C  CALCULATE  THE  LENGTHS  OF  EACH  SIDE. 

C 

DO  8  1=1,3 

IPl=MOD(1 ,3)  +  l 
IMl=MOD(I+l  ,3)  +  l 
DO  7  J=l,3 

7  DLM(J)=DN(IM1 ,J)-DN(IP1  ,J) 

8  SM(I)=<5T7E(nLM(l)  ,DLM(2)  ,DLM(3)) 

C 

C  COMPUTE  THE  CHARGE  DENSITY  ON  THE  TRIANGLE. 

C 

CSUM=CMPLX(0. 0,0.0) 

DO  460  ISL=1 ,3 
ISS=IS(ISL) 

MULTS=NCONN (3 , ISS) 

IF(MULTS . NE . 0)THEN 
IF(ISL.EQ. 1)THEN 
FLAG=SM ( 1 ) 

IF(NCONN( 1 , IS( 1) ) . EQ . NS(3) ) FLAG=-FLAG 
ELSEIF(ISL . EQ . 2) THEN 
FLAG=SM(2) 

IF(NC0NN(1 dS(2)) . EQ . NS( 1 ) )FLAG=-FLAG 
ELSE 

FLAG=SM(3) 

IF(NC0NN(1 , IS (3) ) . EQ . NS(2) )FLAG=-FLAG 
ENDIF 
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C  FOR  AN  EDGE  WITH  MULTIPLICITY  MULT,  THE  LOWEST  NUMBERED  FACE 
C  CONTRIBUTES  TO  MULT  BASIS  FUNCTIONS  ASSOCIATED  WITH  that  EDGE, 

C  WHILE  EACH  REMAINING  FACE  CONTRIBUTES  TO  ONE  BASIS  FUNCTION  ASSOCIATED 
C  WITH  THAT  EDGE. 

CALL  EDGMUL ( IEDGF , MULTI , NEDGES , MULTS , ISS , IFS , JS1 , JS2) 
INDS=INDSUM(ISS) 

DO  450  JS= JS1 , JS2 
IV=IV+1 
ICOL=INDS+JS 

4S0  CSUM=CSUM+FLAG*C0NST1*CI (ICOL) 

ENDIF 

460  CONTINUE 

IF ( JSF . NE . 0)THEN 

CSUM=CSUM+C0NST1*CI( JSCOL) *ANGS 
ENDIF 

CHDEN=CSUM/ CMPLX ( AREA ,0.0) 

RA1=REAL(CHDEN) 

RA2=AIMAG(CHDEN) 

RA3=CABS (CHDEN) 

EPS=1 . E-7 
IFCRA2.EQ.0. )TKEN 
RA4=0. 

ELSEIF(ABS(RA1/RA2) . LT .EPS) THEN 
RA4=90 . 

ELSE 

RA4=ATAN2 (RA2 , RA 1 ) /DEG2RAD 

ENDIF 

WRITECll ,501)  IFS.RAl ,RA2,RA3,RA4 

501  FORM AT (2X  ,  14 ,5X , 1E,2X , IE ,2X, IE ,2X , IE) 

CHARGE=CHARGE+CSUM 

999  CONTINUE 

WRITECll  .502)  CHARGE 

502  F0RMATC/10X, ’TOTAL  CHARGE  ON  THE  BODY=  C’,2E,1X,’)  COULOMBS’) 
RETURN 

END 


A. 50  QWIRE 

c 

SUBROUTINE  QWIRECCI , NWNOD , NWSEG , NUNKNB , NUNKNT , WNODE , WIRSUM , NSEGC , 
$MULTW , MN JUN , NW JUN , INSEG , MXWMLT) 

C - 
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C  THIS  SUBROUTINE  COMPUTES  THE  CHARGE  DISTRIBUTION  ON  THE 
C  WIRE.  THE  CHARGE  DENSITY  IS  COMPUTED  AT  THE  CENTROID  OF 
C  EACH  SEGMENT. 

C 

IMPLICIT  COMPLEX  (C) 

C 

INTEGER  WIRSUM (NWNOD) ,NSEGC(2 , NWSEG) , MULTW(NWNOD) , NW JUN (MN JUN ) 
ft , INSEG(MXWMLT+1 ,NWNOD) 

REAL  VfN0DE(3, NWNOD)  ,SH(3) 

COMPLEX  CI(NUNKNT) 

REAL  LAMBDA, K, MU, IMP 
LOGICAL  LOWS, LOWM, PLUS 

C0MM0N/MEDIUM/DEG2RAD , EPSLON , MU , IMP , SL , PI 
COMMON/WAVE/OMEGA .LAMBDA , K 
SIZE(X ,Y , Z)=SQRT(X*X+Y*Y+Z*Z) 

CONST1=CMPLX(0.0, 1 .O/OMEGA) 

CHARGE=CMPLX(0. 0,0.0) 

WRITEUl  ,101) 

101  F0RMAT(X,/2SX, ’CHARGE  DENSITY  ON  WIRE’,/) 

WRITE! 1 1 , 102) 

102  FORMAT! IX, ’SEGMENT  NUMBER ’, 1  OX .’ CHARGE  DENSITY 
ft  !C0ULCM8S/SQ . METER!  '  ) 

WRITE(11 , 103) 

103  FORMAT(/20X, ’REAL’ , 11X, ’ IMAGINARY’ ,SX, ’MAGNITUDE’ , 10X, ’PHASE’) 

*  LOOP  OVER  THE  SOURCE  SEGMENTS. 

C 

DO  1000  NS=1, NWSEG 
CSUM=CMPLX!0. 0,0.0) 

NSF=NSEGC( 1 , NS) 

NST=NSEGC!2.NS! 

DO  2  J=1 ,3 

SH( J) = (WNODE! J ,NST)-WNODE( J ,NSF) ) 

2  CONTINUE 

DEL=SQRT!SH !1)*SH!1)+SH!2)*SH!2)+SH!3)*SH(3)) 

C 

*  LOOP  OVER  NODES  ATTACHED  TO  THE  SEGMENT. 

C 

DO  400  JNS=  1  ,2 

NODES=NSEGC!JNS,NS) 

MULTS=MULTW!NODES) 

IF(MULTS.GT.O)THEN 

c 

*  COMPUTE  COLUMN  INDEX  FOR  SOURCE  SEGMENT. 
r 
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INDC=WIRSUM (NODES) 

C 

*  DETERMINE  WHETHER  SEGMENT  NS  IS  THE  LOWEST  SEGMENT  ATTACHED  TO  MODE 

*  NODES. LOOP  OVER  THE  NUMBER  OF  SEGMENTS  ATTACHED  TO  NS  AT  NODE  NODES. 

C 

CALL  NODMUL ( INSEG , MXWMLT , NWNOD , NODES ,MULTS, NS , JS1 , JS2, 

>  LOWS) 

IF (LOWS . AND . NODES . EQ . NWJUN (MNJUN)  )  THEN 

JS1  =  1 

JS2=1 

LOWS=. FALSE. 

ENDIF 

DO  300  J=JS1 , JS2 
ICOL=INDC+ J 
IV=IV+1 

IF (NODES. EQ.NSEGC(2, NS)) THEN 
PLUS= .TRUE . 

ELSE 

PLUS=. FALSE. 

ENDIF 

IF (LOWS)THEN 
C 

*  OBTAIN  THE  ATTACHED  SEGMENT. 

C 

NSEGAS=INSEG ( J+ 1 .NODES) 

C 

*  SGN=+ 1  IF  SEGMENT  NS  ft  ATTACHED  SEGMENT  RUN  IN  THE  SAKE  DIRECTION", 

*  SGN=- 1  IF  SEGMENT  NS  ft  ATTACHED  SEGMENT  RUN  IN  THE  OPPOSITE  DIRECTION 
C 

IF (NSEGC(2 , NS) . EQ . NSEGC( 1 , NSEGAS) .OR. 

>  NSEGC(l.NS) ,EQ.NSEGC(2, NSEGAS) )THEN 
SGN=1 . 

ELSE 
SGN=- 1 . 

ENDIF 
ELSE 
SGN=1 . 

ENDIF 

C 

C 

*  COMPUTE  APPROPRIATE  VECTOR  AND  SCALAR  POTENTIALS. 

C 

IF (PLUS)THEN 
C 

C  FOR  PLUS  SOURCE  SEGMENT  SET  SIGN=  (-1)  TO  VECTOR  AND  SCALAR  POTENTIALS 
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IF ( NODES .EQ.NWJUN(MNJUN))  SGN=-1 . 
ELSE 


C  FOR  MINUS  SOURCE  SEGMENT  SET  SIGN* 
C  (-1)  TO  SCALAR  POTENTIALS 


(+1)  TO  VECTOR  POTENTIAL  AND 


IF (NODES . EQ . NWJUN (MNJUN) )  SGN=1 . 

ENDIF 

IFCJNS.EQ  2)SGN=-SGN 
CSUM =CSUM -CONST l«CI(ICOL)»SGN 
CONTINUE 
ENDIF 
CONTINUE 
CHDEN=C3UM/DEL 
RA1=REAL(CHDEN) 

RA2=AIMAG(CHDEN) 

RA3=CABS (CHDEN ) 

EPS=1 . E-7 

IF (RA2 . EQ . 0 . )THEN 

RA4=0 . 

ELSE IF ( ABS (RA 1 /RA2) . LT .EPS) THEN 
RA4=90  . 

ELSE 

RA4=ATAN2(RA2 , RA 1 ) /DEG2RAD 
ENDIF 

WRITECll ,501)  NS.RAl  ,RA2,RA3, RA4 
FORMAT (2X, 14, 5X, 1E.2X,  1E.2X, 1E.2X . IE) 

CHARGE=CHARGE+CSUM 

CONTINUE 

WRITECll ,502)  CHARGE 

F0RMATC/10X, 'TOTAL  CHARGE  ON  THE  WIRE*  C’,2E,1X,’)  COULOMBS’) 

RETURN 

END 


A. 51  CP  ATT 

COMPLEX  FUNCTION  CPATT(SP) 


*  INPUT: 

*  RMK(J) ,J  =  1 ,2,3=K*  THE  X,Y,Z  COMPONENTS  OF  THE  MATCH  POINT. 

*  SH(J)  J= 1 ,2,3  =  THE  X , Y , Z  COMPONENTS  OF  THE  UNIT  VECTOR  POINTING  IN 


*  THE  SAME  DIRECTION  AS  THE  SOURCE  SEGMENT. 

*  RSK( J ) =  K*  THE  X ,Y ,Z  COORDINATES  OF  THE  THE  SOURCE  SEGMENT  CENTROID 

*  RADSK=K  *  THE  SOURCE  SEGMENT  RADIUS. 

*  RADSKS=RADSK*RADSK 

*  SP  IS  K*  THE  DISTANCE  ALONG  THE  SOURCE  SEGMENT  THAT  RPRIME  IS  FROM 

*  THE  SOURCE  SEGMENT  CENTROID.  A  POSITIVE  DISTANCE  IS  TOWARDS  THE 

*  ENDPOINT  OF  THE  SOURCE  SEGMENT,  A  NEGATIVE  DISTANCE  IS  TOWARDS  THE 

*  INITIAL  POINT  OF  THE  SOURCE  SEGMENT. 

*  OUTPUT: 

*  CKMN=THE  REDUCED  KERNEL  EVALUATED  AT  R=THE  MATCH  POINT  AND 

*  RPRIME(J)=RSK(J)-SP*SH(J) . 

C - 

DIMENSION  RMK (3) , SH (3) , RSK (3) ,D{3) 

COMMON/WKERNL/RSK ,SH , RMK 

C 

DO  S  J=1 ,3 

D(J)=RSK(J)-SP*SH(J) 

5  CONTINUE 

R— D  ( 1 )  *RMK  (1)+D(2)*RMK(2)+D(3)*RMK(3) 

CPATT=CEXP (CMPLX (0 . ,R)) 

RETURN 

END 


A. 52  SGQADS 

SUBROUTINE  SGQADS (FCT, XL , XU , IQUAD  ,ANS) 

C - - - - - 

C  GAUSSIAN  QUADRATURE  INTEGRAL  OVER  WIRE  SEGMENT  FOR  SELF  TERM 

*  INPUTS: 

*  FCT  IS  A  COMPLEX  FUNCTION. 

*  IQUAD  IS  THE  NUMBER  OF  INTEGRATION  POINTSC  IQUAD  MUST  BE  4,8  OR  16) 

*  XL  IS  THE  LOWER  INTEGRATION  LIMIT 

*  XU  IS  THE  UPPER  INTEGRATION  LIMIT 

*  OUTPUT: 

*  ANS  IS  THE  INTEGRAL  OF  FCT(X)  FROM  X=XL  TO  XU. 

C - - - 

COMPLEX  FCT , ANS , FP , FM , CSUM 

REAL  AC ( 2) , AD (2) ,AE(4) ,AF(4) ,AG(8)  ,AH(8) 

EXTERNAL  FCT 

DATA  AC(l) ,AC(2) ,AD(1) ,AD(2)  / 

>  .339981043584856, .861136311594053, 

>  .652145154862546, .347854845137454/ 


15S 


DATA  AE( 1) ,AE(2) ,AE(3) ,AE(4) ,AF(l) ,AF(2) ,AF(3) ,AF(4)/ 

>  .183434642495650,  .525532409916329, 

>  . 796666477413627 , . 960289856497S36 , 

>  . 362683783378362 , .313706645877887 , 

>  .222381034453374, .101228536290376/ 

DATA  AG/. 095012509837637, .281603550779258, 

> . 4508016777657227 , .617876244402643 , . 755404408355003 , 

> . 865631202387831 , . 944575023073232 , . 989400934991649/ 
DATA  AH/ . 189450610455068 , . 182603415044923 , 
>.169156519395002, . 149595988816576, . 124628971255533, 

> . 0951585 1 1682492 , . 062253523938647 , . 027 1524594 1 1754/ 


C 

CSUM=(0. ,0.) 

DEL= . 5* (XU-XL) 

XC= . 5* (XL+XU) 

IF (IQUAD . EQ . 4) THEN 

C 

DO  20  J=1 ,2 
C= AC ( J ) *DEL 
FP=FCT(XC+C) 

FM=FCT(XC-C) 

CSL'M=CSUM+AD(J)  * (FP+FM) 

20  CONTINUE 

ELSEIF ( IQUAD . EQ . 8) THEN 
C 

DO  200  J=1 ,4 
C=AE( J) *DEL 
FP=FCT(XC+C) 

FM=FCT(XC-C) 

CSUM=CSUM+AF(J)* (FP+FM) 

200  CONTINUE 

ELSEIF (IQUAD . EQ . 16) THEN 

DO  300  J=1 ,4 
C=AE(J)*DEL 
FP=FCT(XC+C) 

FM=FCT(XC-C) 

CSUM=CSUM+AF ( J) * (FP+FM) 

300  CONTINUE 

ELSE 

WRITE (4 , 10) IQUAD 

10  FORMAT! IX, ’WARNING  IN  QG  IQUAD  OUT  OF  RANGE , IQUAD= ’, 15) 
STOP 
ENDIF 

ANS=CSUM*DEL 
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v 


RETURN 

END 


A. 53  SEGQAD 

C==== ========================================================= ======= 

SUBROUTINE  SEGQAD(FCT , DEL , IQUAD , ANS) 

c - 

C  GAUSSIAN  QUADRATURE  INTEGRAL  OVER  WIRE  SEGMENT 

*  INPUTS: 

*  FCT  IS  A  COMPLEX  FUNCTION  . 

*  DEL  IS  AN  INTEGRATION  LIMIT. 

*  IQUAD  IS  THE  NUMBER  OF  INTEGRATION  POINTS(FOR  NOW  IQUAD  MUST  BE  4) 

*  OUTPUT: 

*  ANS(J)=1 ./DEL  *  THE  INTEGRAL  FROM  SP=-DEL/2  TO  DEL/2 

*  FCT(SP)*VEC(J)  D(SP) 

*  WHERE  VEC(1)=1,VEC(2)=SP,VEC(3)=D£L-SP 

C . . . . . — . 

COMPLEX  FCT,ANS(3) ,FP,FM 
REAL  AC(2) ,AD(2) ,AE(4) ,AF(4) 

EXTERNAL  FCT 

DATA  AC(l) ,AC(2) ,AD(l) ,AD(2)  / 

>  . 33998 104 3584 8S6 , .861136311594053, 

>  .652145154862546, .347854845137454/ 

DATA  AE( 1 ) , AE (2) ,AE(3) ,AE(4) , AF ( 1 ) , AF (2) , AF (3) ,AF(4)/ 

>  . 183434642495650 , . 525532409916329 , 

>  .796666477413627  .  .960289856497536 , 

>  .362683783378362, .313706645877887, 

>  .222381034453374  ,  . 101228536290376/ 

C 

DEL2=DEL/2 . 

DO  5  J=1 , 3 

ANS( J)  =  (0 .  ,0.) 

5  CONTINUE 

IF ( IQUAD .EQ . 4)THEN 
DO  40  J=1 ,2 
C=AC( J) *DEL2 
FP=FCT(C) 

FM=FCT(-C) 

ANS(l)=ANS(l)+AD(J)*(FP+FM) 

ANS(2)=ANS(2)+AD(J)*(FP»C-FM*C) 

40  CONTINUE 

ANS ( 1 ) =DEL2*ANS ( 1 ) 


ion 


O  O 


ANS(2)=.S* (ANS(2)+ANS(1) ) 

ANS(3)=ANS(l)-ANS(2) 

ELSEIF(IQUAD . EQ . 8) THEN 
DO  400  J=1 ,4 
C=AE( J) *DEL2 
FP=FCT(C) 

FM=FCT(-C) 

ANS(l)=ANS(lUAF(J)*(FP  +  FM) 
ANS(2)=ANS(2)+AF(J)*(FP*C-FM*C) 

400  CONTINUE 

ANS ( 1 ) =DEL2*ANS ( 1 ) 

ANS(2)= . 5* ( ANS (2) +ANS( 1) ) 

ANS(3)=ANS(l)-ANS(2) 

ELSE 

WRITE(4 , 10) IQUAD 

10  F0RMAT(1X, ’WARNING  IN  QUAD  IQUAD  OUT  OF  RANGE , IQUAD= ’,15) 
STOP 
ENDIF 
RETURN 


A. 54  WCUMUL 

SUBROUTINE  WCUMUL (NWNOD , NUNKNB , MULTW , WIRSUM ) 


CUMULATE  MULTIPLICITY  OF  WIRE  NODE 

*  INPUT: 

*  NWNCD=THE  NUMBER  OF  WIRE  UNKNOWNS. 

*  NUNKNB=THE  NUMBER  OF  BODY  UNKNOWNS. 

*  MULTW (N)=THE  MULTIPLICITY  OF  THE  NTH  WIRE  NODE. 

*  OUTPUT: 

*  WIRSUM ( I ) -NUNKNB+THE  SUM  OF  WIRE  NODE  MULTIPLICTIES  UP  TO 
»  (BUT  NOT  INCLUDING)THE  NODE  I. 

C - 

INTEGER  MULTW (NWNOD) .WIRSUM(NWNOD) 

WIRSUM( 1 ) =0 
DO  10  1=2  NWNOD 

WIRSUM( I ) =MULTW (I- 1) +WIRSUMCI - 1 ) 

10  CONTINUE 

DO  20  1=1, NWNOD 

WIRSUM ( I ) =WIRSUM (I ) ♦NUNKNB 
20  CONTINUE 


•a--  • 
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RETURN 

END 


A. 55  NODMUL 

SUBROUTINE  NODMUL (INSEG .MXWMLT , NWNOD , NODE , MULTN , NSEG , JN1 , JN2 , LOW) 

C - 

C  MAPPING  FROM  NODE  TO  MULTIPLICITY 

*  INPUT: 

*  INSEG (M , N)  M= 1 _ MULTW (N)  + 1  CONTAIN  THE  WIRE  SEGMENTS  ATTACHED 

*  TO  THE  NTH  NODE. 

*  MXWMLT=THE  MAXIMUM  MULTIPLICITY  CF  ANY  WIRE  NODE. 

*  NWNOD  THE  NUMBER  OF  WIRE  NODES. 

*  NCDE=  THE  WIRE  NODE  NUMBER. 

*  MULTN=TKE  MULTIPLICITY  OF  THE  NODE  ’NODE’ 

-  NSEG=  THE  SEGMENT  NUMBER 

*  OUTPUT : JN1  JN2 

*  IF  NSEG  IS  THE  LOWEST  NUMBERED  SEGMENT  ATTACKED  TO  NODE  ’NODE’ 

*  THEN  JN1= 1  AND  JN2=MULTN 

*  ELSE  IF  NSEG  IS  THE  ITH  SEGMENT C > F I RST )  ATTACHED  TO  NODE  ’NODE’ 

*  THEN  JN1=JN2=I-1 

*  END  IF 


INTEGER  INSEGCMXWMLT+l, NWNOD) 
LOGICAL  LOW 

IF (INSEG (1 .NODE) . EQ . NSEG) THEN 
LOW= .TRUE. 

JN1  =  1 
JN2=MULTN 
ELSE 

LOW=. FALSE. 

Ml  =MULTN+ 1 
DO  10  1  =  2, Ml 

IFCNSEG.EQ . INSEGCI .NODE) )THEN 
11=1-1 
J  N 1  =  1 1 
JN2=I 1 
GO  TO  11 
ENDIF 

10  CONTINUE 

11  CONTINUE 


1G2 


ENDIF 

RETURN 

END 


A. 56  WIROUT 

c=============================================================== 

SUBROUTINE  WIROUT(CV , NUNKNT , NUNKNB , MULTW , NWNOD) 

C - - - 

C  THIS  SUBROUTINE  PRINTS  OUTPUT  DATA  ASSOCIATED  WITH  WIRES 
C 

COMPLEX  CV (NUNKNT) 

INTEGER  MULTW (NWNOD) 

COMMCN/F/FREQ 

DEG2RAD=3. 14159265358979/180. 

C 

*  WRITE  THE  CURRENT  DENSITY  TABLE. 

C 

WRITE(9,22) 

22  F0RMATC//28X. ’SURFACE  CURRENTS’/) 

WRITE(9 ,23) 

23  FORMATC IX, ’EDGE  NUMBER  13X CURRENT  DENSITY  (AMPS/METER)’) 
WRITE(9,24) 

24  FORMAT 

>  ( 14X , ’REAL’ ,9X, ’IMAGINARY’ ,7X , ’ MAGNITUDE ’ , 7X , ’ PH ASE (DEG) ’ ) 

C0=(0. ,0. ) 

K 1=0+NUNKNB 
DO  50  150=1, NWNOD 

IF (MULTW(I50) . EQ . 0)THEN 
WRITEC9, 101)150, CO, 0. 

WRITE(4, 101)150, CO, 0. 

A=0 . 

ELSE 

DO  35  135=1 ,MULTW(I50) 

K1=K1+1 

RA1=REAL(CV(K1)) 

RA2=AIMAG(CV(K1) ) 

RA3=CABS(CV(K1)) 

IF(ABS(RA1) . LT. 1 .E- 10) THEN 
RA4=90 . 

ELSE 

RA4=ATAN2 (RA2 ,RA1) /DEG2RAD 
ENDIF 


1C3 


WRITEC9 , 101 )  150 , RA 1 , RA2 , RA3 , RA4 
WRITE(4, 101)  ISO ,RA1 ,RA2 ,RA3 ,  RA4 
35  CONTINUE 

ENDIF 

50  CONTINUE 

101  FORMAT (2X ,I4,2X,3(2X,E125,2X) ,F12.3) 

C 

C  PRINT  OUT  CURRENT  ON  THE  JUNCTION  NODE 

C  IT  IS  INPUT  CONDUCTANCE  IF  SET  RIGHT  HAND  SIDE  CV(NUNKNT)=1 
C 

C  WRITE (11,*)FQ,CV (NUNKNT) 

C  WRITE( 1 1 , * ) FQ , CV (NUNKNB+1 ) 

C102  FORMATCX , F6 . 4 , ’ , ’ , E15 . 5 , ' , ’ , E15 . 5 , ’ , ’ ) 

RETURN 

END 


A. 57  FNDJUN 

0  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  ==  =  =  =  =  =  ==  =  =  =  =  =  =  =  =  =  ^  =  =  =  =  =  =  =  =  =  =:  =  =:  =  =  =  =  =  =  =  =  =:=:  =  =  =  =  =:=:  =  = 
SUBROUTINE  FNDJUN (WNODE ,NWNOD  ,DATNOD ,NNODES ,MN JUN ,NWJUN ,NB JUN) 

C - - - - 

C  PURPOSE: 

C  FOR  BODY  AND  WIRE,  FIND  OUT  WHICH  NODE  IS  JUNCTION 
C 

C  INPUT: 

C  MN JUN :  NUMBER  OF  JUNCTION 
C  OUTPUT: 

C  NWJUN(I) :WIRE  NODE  NUMBER  OF  THE  ITH  JUNCTION  I=1,MNJUN 
C  NBJUN(I) :BODY  NODE  NUMBER  OF  THE  ITH  JUNCTION  I=1,MNJUN 

C - - - - - 

REAL  WNODE (3 , NWNOD) , DATN0D(3 , NNODES) 

INTEGER  NWJUN (MNJUN) , NB JUN (MN JUN) 

NJ=0 

C 

C  LOOP  OVER  EACH  WIRE  NODE  AND  BODY  NODE 
C 

EPS=1 . E-4 

DO  10  NW=1, NWNOD 

DO  10  N=l, NNODES 

C 

C  IF  WIRE  NODE  AND  BODY  NODE  AT  THE  SAME  POINT  IT  IS  A  JUNCTION  POINT 
C 

E1=ABS(WN0DE( 1 ,  NW) -DATNOD(  1 ,  N) ) 


1G4 


O  C  1 


E2=ABS(WN0DE(2 ,  NW) -DATN0D(2,N)) 

E3=ABS(WN0DE(3 ,  NW) -DATN0D(3 ,N) ) 

IFCE1.GT.EPS. OR. E2.GT.EPS. OR. E3.GT.EPS)  GD  TD  10 
NJ=N  J+l 
NWJUN (NJ)=NW 
NBJUN (NJ)=N 
10  CONTINUE 

WRITE(3 , *) ’  NUMBER  OF  JUNCTION  =  ■ ,NJ 
DO  20  NN=1 ,NJ 

20  WRITEC3,*)’  ON  WIRE  NODE  =  ’ ,NWJUN(NN) 

RETURN 

END 


A. 58  JUNFAC 

SUBROUTINE  JUNFAC (NBJUN , MNJUN , NBOUND , NFACES , NCCNN , NEDGES , 
&  N JFACE ,MN JFACE .MIFACE) 


PURPOSE: 

C  FOR  EACH  JUNCTION,  FIND  OUT  THE  PATCHES  ATTACH  TO? 

n 

C  INPUT: 

C  NBJUN ( I) : NODE  NUMBER  OF  THE  ITH  JUNCTION  POINT.  1=1, MNJUN 
C  MNJFACE:MAXIMUN  NUMBER  OF  FACE  ATTACHING  TO  JUNCTION  POINT 
C  OUTPUT: 

C  NJFACEd , J) : FACE  NUMBER  OF  THE  JTH  FACE  ATTACHING  TO  THE  ITH  JUNCTION 
C  POINT.  1=1, MNJUN,  J=1,MIFACE(I) 

C  MIFACE(I) :MAXIMUN  NUMBER  OF  FACE  ATTACHING  TO  THE  ITH  JUNCTION  POINT. 

C - - - 

INTEGER  NBJUN(MNJUN) , NCONN (3 , NEDGES) , NBOUND (3 , NFACES) 

&  , NJFACE (MNJUN .MNJFACE) .MIFACE(MNJUN) , IE (3) ,NV(3) 

C 

C  LOOP  OVER  EACH  JUNCTION  POINT 
C 

EPS=1 . E-3 
DO  10  NJ=1, MNJUN 
1=0 

C 

C  CHECK  IF  THIS  FACE  ATTACHING  TO  JUNCTION  POINT 

C 
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DO  20  N=1 .NFACES 


CALL  FACEDG (NFACES .NBOUND ,N , IE) 

CALL  FACVTX (NCONN .NEDGES , IE ,NV) 

E1=ABS(NV ( 1) -NBJUN (NJ) ) 

E2=ABS(NV(2)-NBJUN(NJ)) 

£3=ABS(NV(3)-NBJUN(NJ) ) 

IFCE1.GT.EPS. AND. E2.GT.EPS. AND. E3.GT.EPS)  GO  TO  20 
1  =  1+1 

NJFACE(NJ,I)=N 
20  CONTINUE 

MIFACE(NJ)=I 
10  CONTINUE 

RETURN 
END 


A. 59  JANGLE 

SUBROUTINE  JANGLE (DATNOD , NNODES , NBJUN , MNJUN , NBOUND , NFACES , NCONN , 
ft  NEDGES , NJFACE , MN JFACE .MIFACE , ANG) 

C - - - - 

C  PURPOSE:  FOR  EACH  JUNCTION,  COMPUTE  VERTEX  ANGLE  OF  EACH  ATTACHED 
C  TRIANGLES. 

C  OUTPUT: 

C  ANG(l.J) : ANGLE  FACTOR  OF  THE  JTH  PATCH  ATTACHING  TO  THE  ITH  JUNCTION 
C  POINT 

C  SANG(I) :THE  SUM  OF  THE  VERTEX  ANGLE  OF  THE  ITH  JUNCTION  POINT 


REAL  DATN0DC3, NNODES)  ,SANG(40) , ANG (MNJUN ,MN JFACE) , DN (3 ,3) 
ft  , VP(3) ,VM(3) 

INTEGER  NBJUN (MNJUN) , NCONN (3 .NEDGES) , NBOUND (3 , NFACES) 
ft  ,NJFACE(M*J  JUN .MNJFACE) .MIFACE(MNJUN) ,NV(3) ,IE(3) 

C 

SIZE(A,B,C)=SQRT(A*A+B*B+C*C) 

C 

C  LOOP  OVER  EACH  JUNCTION  POINT 
C 

DO  1.0  1  =  1  .MNJUN 
SArtG(I) =0 . 

C 

C  LOOP  OVER  EACH  ATTACHED  FACE 
C 

D?  10  J= 1 .MIFACE ( I ) 

I J=N JFACE(I ,  J) 
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CALL  FACEDG (NFACES , NBOUND , I J , IE; 

C 

C  FROM  THESE  EDGES,  OBTAIN  THE  VERTICES  OF  THE  TRIANGLE. 
C 

CALL  FACVTX(NCONN , NEDGES , IE,NV) 

C 

C  CALCULATE  THE  COORDINATES  OF  EACH  VERTEX. 

C 

CALL  VTXCRD (DATNOD , NNODES , NV , DN) 

DO  20  11=1,3 

20  IF(NV(II)  .EQ.NBJUN(I))  GO  TO  30 

30  IP1=M0D(II ,3)+l 

IM1=M0D(IP1,3)+1 
DC  40  JJ=1 ,3 

VP( JJ)=DN(IP1 ,JJ)-DN(II,JJ) 

40  VM ( J J) =nN ( TM1 .JJJ-DHCII.JJ) 

EP=SIZE(VP(1) , VP(2) , VP (3) ) 

EM=SIZE(VM( 1) , VM(2) ,VM(3)) 
D0T=VP(l)*VM(l)+VP(2)*VM(2)+VP(3)*VM(3) 

C 

C  A  DOT  B  =  LAL  LBL  COS(ANG) 

C 

ANGd  ,  J)=ACOS(DOT/EP/EM) 

SANG(I)=SANG(I)+ANG(.I ,  J) 

10  CONTINUE 

DO  100  1=1 ,MNJUN 
DO  100  J=1 ,MIFACE(I) 

ICO  ang:i,j)=ang(I,j)/sang(i) 

RETURN 

END 


A. 60  JUNPAR 

SUBROUTINE  JUNPAR( JFLAG , DATNOD , NODE , IFACE , AANGLE , VETJUN , INDEX , 
ft  WIRSUM ,MNJUN ,MN JFACE , NWNOD  ,  ANG ,N JFACE , MI FACE , NWJUN ,NB JUN) 

c - - - - 

C  PURPOSE; 

C  FIND  CUT  GEOMETRY  PARAMETERS  ASSOCIATE  WITH  THIS  JUNCTION  PATCH 
C 

C  INPUT: 

C  DATNOD (1 , J) : J=1 ,3  ARE  THE  X,Y,Z  COORDINATES  OF  THE  ITH  VERTEX  OF  THIS 
C  PATCH 


1C7 


o  o  o  o  o  o  o  o 


C  NODE(I) .1=1,3  NODE  NUMBER  OF  THE  ITH  VERTEX  OF  THIS  PATCH 
C  IFACE : FACE  NUMBER  OF  THIS  PATCH 
C  OUTPUT: 

C  ANGLE: VERTEX  ANGLE  FACTOR  OF  THIS  PATCH  ATTACHING  TO  THE  JUNCTION 
C  POINT 

C  VETJUN(J) : J=1 ,3  TESTING  VECTOR  RUNNING  FROM  THE  CENTER  TO  THE 
C  JUNCTION  VERTEX 

C - - - - - - - 

REAL  ANG(MNJUN.MNJFACE) , DATNOD(3 , 3) , DATNODC (3) ,VETJUN(3) 
INTEGER  NJFACE (MNJUN .MNJFACE) .MIFACE(MNJUN) , NB JUN(MNJUN) , 

&  NWJUN (MNJUN) ,N0DE(3) .WIRSUM(NWNOD) 

FIND  JUNCTION  VERTEX  AND  CORRESPONDING  JUNCTION  NUMBER 

DO  10  IN0DE=1 , 3 
DO  10  JUNN0=1, MNJUN 

IF(NODE(INODE) .EQ.NBJUN(JUNNO))  GO  TO  20 
CONTINUE 

SET  JFLAG=0 ,  THERE  IS  NOT  ANY  JUNCTION  ON  THIS  PATCH 

JFLAG=0 
GO  TO  100 

SET  JFLAG=  WHICH  VERTEX  OF  THIS  JUNCTION  PATCH, 

C  IF  THERE  IS  ANY  JUNCTION  ON  THIS  PATCH 

O 

20  JFLAG=INODE 

C 

C  DETERMINE  ROW(MATCHING)  OR  COLUMN(SOURCE)  LOCATION  IN  THE  MATRIX 
C 

INDEX=WIRSUM(NWJUN( JUNNO) )+l 
C 

C  FIND  THE  VERTEX  ANGLE  OF  THE  JUNCTION  PATCH 
C 

DO  30  M=1 , MI FACE (JUNNO) 

IF(NJFACE(JUNNO,M) .EQ. IFACE)  GO  TO  40 
30  CONTINUE 

WRITE(6 ,  *)  ’  ERROR  :  CAN  NOT  FIND  JUNCTION  FACE  ’ 

40  AANGLE=ANG( JUNNO ,M) 

C 

C  DATNODC(J) , J=1 ,3  IS  THE  CENTER  OF  THE  PATCH 
C 

DO  50  J J  =  1 ,3 
C 
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C  COMPUTE  THE  VECTOR  OF  TESTING  PATH 
C 

DATNODC ( J  J)  =  CDATNOD (l,JJ)+DATN0D(2,JJ) +DATNOD (3 , J J) ) /3 . 
SO  VETJUN(JJ)=DATNOD(INODE, JJ) -DATNODC (JJ) 

100  RETURN 

END 


A. 61  FACPAR 

SUBROUTINE  FACPAR ( JSF ,RK ,RMK) 

C - - - - 

C  THIS  SUBROUTINE  COMPUTES  MOST  PARAMETERS  FOR  COMPUTING  VECTOR  AND  SCALAR 
C  POTENTIALS 

C  JSF  =  1,2  OR  3  IS  JUNCTION  VERTEX  OF  THE  TRIANGLE 
C  RK(I,J)  IS  THE  VERTEX  COORDINATE  OF  THE  SOURCE  TRIANGLE 
C  RMK(J)  IS  THE  MATCHING  POINT  OR  CENTER  OF  THE  MATCHING  TRIANGLE 

C . - . - - - - - - - - - 

IMPLICIT  COMPLEX  (C) 

DIMENSION  RMK0(3) ,RI (3 ,3) ,P(3 .3) ,PH(3) ,RIL(3) ,URI(3,3) ,RR2(3) 

$  ,VH(3,3) ,RR(3) ,RRR(3) 

DIMENSION  H (3) ,RK(3,3) ,RMK(3) .UN(3) ,UL(3.3) ,UH(3,3)  ,AL(3S  ,DL(3,3) 

COMMON /CON J/XSING2 

COMMON/MINMAX/RLMINK , RLMAXK 

COMMON/ JUN/RI , P , PH , RR , RR2 , RIL . URI ,VH 

COMMON/P  ARA/DL  ,  DET  .  H  ,  AL  .  UL  ,UH  ,  RMKO  ,'JN  .  DPERPK 

SIZEOI  ,Y,Z)=SQRT(X*X+Y*'i'+Z*Z) 

c 

C  HAT  N  =  [(VET  R(2)-VET  R(l))  X  (VET  R(3)-VET  R(l))]  / 

C  ABS [(VET  R(2) -VET  R(l) )  X  (VET  R(3)-  VET  R(l))] 

C 

PK= JSF 
DO  10  1=1,3 
IP  1=M0D ( I , 3)  +  1 
IM1=M0D ( 1  +  1 ,3)  + 1 
DO  20  J=1 ,3 

20  DL(I,J)=RK(IM1,J)-RK(IP1,J) 

AL(I)=SIZE(DL(I,1) , DL ( I , 2) , DL ( I , 3) ) 

DO  30  J=1  ,3 

30  UL(I ,J)=DL(I ,J)/AL(I) 

10  CONTINUE 

C 

RLMINK=AMIN1 ( AL ( 1 ) , AL (2) , AL(3) ) 
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RLMAXK=AMAX1(AL(1) ,AL(2) ,AL(3)) 

C 

DO  40  J=1 ,3 
JP1=M0D  C J , 3)  +  1 
JM1=M0D(J+1,3)+1 

40  UN(J)=DL(3, JP1)*DL(1 , JM1)-DL(3, JM1)*DL(1 , JP1) 

DET=SIZE(UN(1) ,UN (2) ,UN(3)) 

DO  50  J=1 ,3 
UN(J)=UN(J)/DET 
50  H(J)=DET/AL(J) 

C 

C  VH (I , J ) =  THE  VECTOR  OF  THE  HEIGHT  H ( I ) 

C 

DO  70  1=1,3 
DO  70  J=1 ,3 
JP1=M0D(J,3)+1 
JM1=M0D(J+1,3)+1 

UH(I, J)=UL(I. JP1)*UN(JM1)-UL(I , JM1)*UN(JP1) 

70  VH(I,J)=H(I)*UH(I,J) 

DPERPK=0 . 

DO  80  J=1 ,3 

80  DPERPK=DPERPK+UN( J) * (RMK( J) -RK( 1 , J)  ) 

DO  90  J=1 ,3 

90  RMKO ( J ) =RMK ( J ) -DPERPK*UN ( J ) 

DPERPK=ABS(DPERPK) 

DO  100  1=1,3 
DO  110  J=1 , 3 

110  RI ( I , J) =RMK ( J) -RK (I , J) 

RIL(I)=SIZE(RI(1 ,1) ,RI(1 ,2) ,RI. 1 ,3)) 

RIH=0 . 

DO  120  J=1 ,3 

URI (I , J)=RI (I,J)/RIL(I) 

120  RIH=RIH-*-URI(I,J)*UH(I,J) 

RRR(I)=RIH 
RR(I)=RIL(I) *RIH 
RR2(I)=RR(I)*RR(I) 

22  FORMAT (3X ,3E15 . 5) 

DO  130  J=1 ,3 

130  P(I,J)=RMKO(J)-RK(I,J) 

PDH=0 . 

DO  140  J=1 , 3 

140  PDH=PDH+P(I , J)*UH(I , J) 

PH(I)=PDH 
100  CONTINUE 

C 
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C  IF  RI  IS  NEAR  PERPENDICULAR  TO  HI,  SET  XSING2=1  . 
C 

IF( JSF . NE . 0)THEN 

IF(RRR( JSF) . LT. 1 -E-6)  THEN 

XSING2=1. 

ELSE 

XSING2=0 . 

ENDIF 

ENDIF 

RETURN 

END 


A. 62  ADWMUL 


SUBROUTINE  ADWMUL (NWNOD , WNODE , MULTW , NWUNKS) 


C  ADJUST  MULTIPLICITY  OF  WIRE  NODE 
C  INPUT: 

C  NWNOD=THE  NUMBER  OF  WIRES  NODES. 

C  NWUNKS=THE  NUMBER  OF  WIRES  UNKNOWNS  BEFORE  CONSIDERING  THE 
C  GROUND  PLANE  ATTACHMENTS. 

C  WN0DE(I ,N)=THE  X,Y,Z  COMPONENTS(I=l ,2 ,3)  OF  THE  NTH  NODE  N=l, NWNOD. 

C  MULTW (N)=  THE  MULTIPLICITY  OF  THE  NTH  NODE  N=1 ,NWNOD(BEFORE  ANY  GROUND 

C  PLANE  ATTACHMENTS  ARE  CONSIDERED). 

C 

C  OUTPUT: 

C  FOR  EACH  NODE  IN  THAT  IS  CONNECTED  TO  A  P.E.C.  GROUND  PLANE  AND  IS 
C  NOT  CONNECTED  TO  A  P.M.C,  GROUND  PLANE,  ITS  MULTIPLICITY(MULTWCIN) ) 

C  AND  THE  NUMBER  OF  WIRES  UNKNOWNS(NWUNKS)  ARE  INCRIMENTED  BY  1. 

C  THE  NODE  CONNECTION  LIST  WITH  MULTIPLICITIES  IS  OUTPUTTED 
C  AFTER  ACCOUNTING  FOR  ALL  GROUND  PLANE  ATTACHMENTS. 

C - - - - - 

DIMENSION  WN0DE(3, NWNOD) .MULTW(NWNOD)  ,IGNDP(3) ,DM(3) 

COMMON /GPL ANE/NGNDP , IGNDP 
IF(NGNDP ,GT.O)THEN 
GLIMT=1 . E-4 
DO  100  IN=1, NWNOD 
DO  2  1=1,3 

DM( I) =ABS(WNODE(I , IN) ) 

IX=0 
IY=0 
IZ=0 
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2 


IFCDM(l) . LE . GLIMT) IX=TGNDP( 1) 
IF(IX.NE.1)THEN 

IF(DM(2) . LE . GLIMT) IY=IGNDP(2) 

IFC1Y.NE. 1 .AND. DM (3) . LE . GLIMT) IZ=IGNDP (3) 
ENDIF 

IMAX=AMAXO(IX,IY,IZ) 

IFCIMAX.NE. 1)THEN 
IMIN=AMINO(IX,IY,IZ) 

NWUNKS=NWUNKS-IMIN 

MULTW(IN)=MULTW(IN)-IMIN 

ENDIF 

100  CONTINUE 
ENDIF 
RETURN 
END 


A. 63  POTBOD 

SUBROUTINE  F OTBOD ( JSF , RK , RMK , C , C A , CA J , IP AT) 

C . . - . - . . . . 

C  COMPUTE  POTENTIALS  ASSOCIATED  WITH  BODY  FACE 
C  INPUT: 

C  RK( J , I)  1=1, 2, 3  DENOTES  K*THE  X,Y,Z  COORDINATES  OF  THE  JTH 
C  VERTEX  OF  THE  SOURCE  TRIANGLE . (K=THE  WAVE  NUMBER) 

C  RMK(I)  1=1, 2,3  DENOTE  THE  X,Y,Z  COORDINATES  OF  THE  MATCH  POINT. 
C  CONSTANTS  PASSED  THROUGH  COMMON/GPLANE/ 

C  NGNDP=0, 1 ,2, OR  3  THE  NUMBER  OF  IMAGE  PLANES. 

C  IGNDP(I) =0  NO  GROUND  PLANES; 

C  -1  A  P.E.C.  GROUND  PLANE; 

C  1  A  P.M.C.  GROUND  PLANE. 

C  1=1, 2, 3  DENOTES  THE  X=0,Y=0,ANDZ=0  GROUND  PLANES. 

C  OUTPUT : 

C  AL(I) ,1=1,3  DENOTE  K*  THE  LENGTHS  OF  THE  SOURCE  TRIANGLES  SIDES 
C  OPPOSITE  THE  1  2  3  LOCAL  VERTICIES  RESPECTIVELY. 

C  CI(I) ,1=1 ,3  IS 

C  C=CI(1)+CI(2)+CI(3) 

C  SCALAR  POTENTIAL  =-AL(I) *C/(2 . *PI*OMEGA*EPSO*I )  I=SQRT(- 1 . ) 

C  AL(I)  IS  THE  LENGTH  OF  THE  ITH  SIDE  OF  THE  SOURCE  TRIANGLE  *K 
C  VECTOR  POTENTIAL (I)=(MU0*AL(I)/(4*PI*K))*(CI(IP1)*DL(IM1,J)- 

C  CI(IM1)*DL(IP1 ,J)) 

C - 

COMPLEX  CIO)  ,  C  ,  CPP  ,  CMM  ,  CA  (3 , 3)  ,CAJ(3) 
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C  VARIABLES  ASSCCIATED  WITH  IMAGE  PATCH 
$  .  Til (31 , CFPI , CMMI 


DIMENSION  RK (3 , 3) , RMK (3) , IGNDP (3) 
COMMON/OPLANE/NGNDP  ,  IGNDT 
CALL  EAC?AR( JSF , RK , RMK) 

CALL  FD3FACC JSF , RK , RMK ,C ,CA ,CA J , IPAT) 
IF (NGNTF . GT . O'  THEN 
DO  DC  1=1,3 

IF  I JNDP(I) . NE  0)CALL  BIMA -1 
CONTINUE 

IFCNGNDF  GE  2' THEN 
IF ( IGNDF ( 1 1 ,E3.0)THEN 
CALL  3IMAGE ( JSF ,RK , RMK , T , CA .  'AC 
ELSEIF(IGNDP(2) . EQ . C 'THEN 

CALL  BIMAGE C JSF, RK, RMK . T , TA , TAJ 
ELSE 

CALL  E IMAGE  JSF  ,  RK , RMK ,  C .  ' A . TA ' 
IF  .  I GNDPC3)  NE.G  THEN 
TALL  BIMAGEi.  JSF  ,  F.K  ,  RMK  , 

CALL  SIMAGEvTTF  ,  RK  , RMK. . 

ri'-’c 


F.F.K  EMK. 


IF (NGKDP  uET:  I  CALL  BIMAGE  ' 

$  JSF ,RK ,RMK ,C ,CA . "A 

END  IF 
ENDIF 


RETURN 


END 


A. 64  PD3FAC 

SUBROUTINE  PD3FAC ( JSF , RK , RMK , C . CA , CAJ , IPAT) 

C - 

C  POTENTIAL  INTEGRAL  OF  DYNAMIC  3-D  GREEN’S  FUNCTION  OVER  FACE 
C  INPUT: 

C  RK(J , I)  1=1, 2, 3  DENOTES  K>  THE  X,Y,Z  COORDINATES  OF  THE  JTH  VERTEX 
C  OF  THE  SOURCE  TRIANGLE. 

C  RMK(I)  1=1, 2, 3  DENOTES  K*  THE  X,Y.Z  COORDINATES  OF  THE  MATCH  POINT. 

C  K=  THE  WAVE  NUMBER. 

C  RATIOl ,RATI02,RATI03  ARE  TEST  PARAMETERS  THAT  DETERMINE  THE  METHOD  OF 
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C  INTEGRATION. 

C  TO  EXPLAIN  THIS  TEST  DEFINE  : 

C  RAT= (THE  DISTANCE  TO  THE  SOURCE  TRIANGLE’S  CENTROID  FROM  THE 
C  MATCH  POINT) /THE  SOURCE  TRIANGLE’S  MAXIMUM  EDGE  LENGTH. 

C  RATIO=RAT*RAT . 

C  IF  RATIO. LE.RATIOl,  7  POINT  QUADRATURE  AND  ANALYTICAL  TREATMENT  OF 
C  SINGULARITIES  IS  PERFORMED. 

C  IF  RATIOl .LT. RATIO .LE. RATIO?.  7  POINT  QUADRATURE  IS  USED. 

C  IF  RATI02.LT. RATIO. LE.RATI03  3  rUINT  QUADRATURE  IS  USED. 

C  IF  RATI03.LT. RATIO  1  POINT  QUADRATURE  IS  USED. 

C  OUTPUT: 

C  TO  DEFINE  THE  REMAINING  OUTPUTS  WE  INTRODUCE  THE  NORMALIZED 
C  AREA  COORDINATES  (ZETA , XSI , ETA )  FOR  THE  SOURCE  TRIANGLE. 

C  (ZETA , XSI , ETA ) = ( 1 ,0,0)  CORRESPONDS  TO  VERTEX  1 . 

C  (ZETA, XSI, ETA)=(0,1 .0)  CORRESPONDS  TO  VERTEX  0. 

C  (ZETA, XSI ,ETA)= (0,0,1)  CORRESPONDS  TO  VERTEX  3. 

C  ZETA= 1 -XSI -ETA . 

C  THE  NORMALIZED  SOURCE  TRIANGLE  IS  DEFINED  BY:  O'. Cl, ETA ;  WHERE 
C  XSI  VARIES  FROM  0  TO  1-ETA  AND  ETA  VARIES  FROM  0  TO  1. 

Z  THE  REMAINING  OUTPUTS  ARE  C  AND  CVEC  WHERE 

C  C=  THE  DOUBLE  INTEGRAL  OVER  THE  NORMAL! EEC  SOURCE  TRIANGLE  OF 
C  CEXP ( - I *DK ) /DK  D(XSI)  D'ETA; 

C  WHERE  DK=  K*  THE  DISTANCE  FROM  THE  SOURCE  POINT  TO  THE  MATCH  PC  IN 
C  CVEC (I )=RK ( 1  , 1 ) * (C-CXSI-CETA) +  RK (2,1  • SXSI+RK  3 . I  -SETA  1=1, 2, 3 
C  WHERE  CXSI  AND  CETA  ARE  THE  INTEGRALS  OVER  THE  NORMALIZED  SOURCE 
C  TRIANGLE  OF: 

C  CEXP(-I*DK)/DK  TIMES  XSI  AND  ETA  RESPECTIVELY  Dl'XSI'  DC  ETA)  . 

C 

C  THE  VECTOR  AND  SCALAR  POTENTIALS  DUE  TO  A  BASIS  FUNCTION  THAT 
C  FLOWS  OUTWARD  FROM  THE  NTH  EDGE  OF  THE  SOURCE  TRIANGLE  ARE  GIVEN 
C  BY  VEC  POTENTIAL (I)  =  (MUO*RLK’ SUB ’ N/ (4 »FI *K) * (CVEC ( I ) -RK (N , I ) *C) 

C  1=1, 2,3. 

C  SCALAR  POTENT I AL=-RLK ’ SUB ’ N*C/ ( 2*PI*0MEGA*EPSC* I !  I=SQRT(-1.) 

C  RLK’SUB’N  IS  K*  THE  LENGTH  OF  THE  NTH  SIDE  OF  THE  SOURCE  TRIANGLE. 

C - - - 

IMPLICIT  COMPLEX  (C) 

DIMENSION  RKC3.3) ,RMK(3) ,RCK(3) ,SINGV(3) ,RMC(3) ,DL(3,3) 
ft  ,SINGT(3) ,SP2(3) ,SM2(3) ,CI(3) ,CA(3,3) ,CAJ(3) 

ft  ,H(3)  ,V(3) ,AL(3) 

COMMON/MINMAX/RLMINK .RLMAXK 

COMMON /TEST/ RATI 01  .RATI02 ,RATI03 

COMMON /PARA/DL,DET,H,AL 

DATA  RATIOl , RATI02 , RATI03/ 1 . ,9. ,100./ 

C 

CRX(X)=CMPLX(X,0.) 
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JI=JI-1 


:f;i?at.gt.o; then 

XSING=0 . 

IF ( IPAT . EQ -  1 ) IQUAD=3 
IF  (IPAT .  EQ  .  2)  IQ'JAD=  1 
ELSE 

DO  2  J = 1 , 3 

RCK  (  J'-  =  (RK(  1 ,  J)  +RK(2  ,  J)  +RK(3  ,  J '■ )  /3  . 

RMC  C  J ) =RMK  CJ)-RCK(J) 

RATIO® (RMC (1)*RMJ(1)  +RMC (2) *RMC (2'  -KMC 
IF ( RATIO . LE . RATI  01 1 THEN 
XSING=1 . 

IQUAD=7 


ELSE 

XSING=0 . 

I F (RATIO . LE . RATI C 2) THEN 


END  IF 
ENDTF 


CALL  FAC3A3USF  ,  IQUAD  .XCl.NG  ,F.K  ,?.MF  , KLM INK 
&  ,  IPAT  i 

CI(1)=C-CIXSI-CIETA 
CI(2)=CIXSI 
Cl (3)=CIETA 
IF (XSING . EQ . 1 . )THEN 
DO  111  1=1,3 
SP2 ( I ) =0 . 

11  SM2 ( I ) =0 . 

CALL  PS3FAC(JSF,RK,SINGT,SP2,SM2) 

DO  6  1=1,3 

CI(I)=CI(I)+SINGT(I) 

IF(JSF.NE.O)THEN 
CPP=CPP+CRX (SP2 ( JSF) ) 

CMM=CMM  +  CRX(SM2(JSF) ) 

ENDIF 
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ENPIF 

c=ci ;:!+ci(2)+ci  (3) 

30  8  1=1,3 
IP1=M0D (I , 3) +1 
IH1*M0D(IP1 ,3)+l 
DO  8  0=1,3 

;a(i,j)=cicip:)*du'iki,j;-cx(;ki'*j.l;:p1,j) 
IF  (OS?  HE . O; THEN 
IF  1=M03 (OSF ,3'  +  1 
IM 1 =  MCD( IP1 ,3) +1 
DO  2C  0=1,3 

OA  J  ( J }  =DET»K  (OFF  '  •  •  ~F?»DL  ( IM 1  ,  0  *,  -r  MM*  32  ■.  IF!  . . 

END  IF 

RETURN 

END 


A. 65  BIMAGE 


VERTEX  OF  THE  SOURCE  TRI ANODE 

EVE  I  >1.2,3  DENOTE  K*  THE  X.V.E  CO  RE  I  NATES  Or  I! 
RDK  ,  KDK2  ,  P.LK3  CENOTF  K  » ”HF.  LFNITHP  OF  THE  FH  IRS 
OPPOSITE  THE  1,2,3  VERT I  DIED  OF  THE  SOUR  IE  TR i A NODE 
ID  0  =  1, 2, 3  DENOTES  :  0  IMA  IE  PLANES  IF  10  =  0 

THE  X  =  C  GROUND  PLANE  IF  I  >1 
THE  Y=0  GROUND  PLANE  IP  IJ=2 
THE  2=0  GROUND  PLANE  IF  10=3 


THE  SOURCE  TRIANGLE  IS  IMAGED  ABOUT : 

(CASE  1 1  >0  12=1 3=C  THE  II  IMAGE  PUNE. 

( CASE  I1>I2>:?=G)  THE  II  IMAGE  '-'LANE,  THEN  REFLECTED 

ABOUT  THE  12  IMAGE  PLANE. 

(CASE  1 1 > 1 2> 131  THE  II  IMAGE  PLANE,  THEN  REFLECTED 
ABOUT  THE  12  AND  13  IMAGE  F  UNES . 
THIS  NEW  IMAGE  TRIANGLE’S  CONTRIBUTIONS  TO  Cl  ARE 
COMPUTED  AND  THE  RESULTS  ARE  ADDED  TO  Cl 
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o  o 


DIMENSION'  RK(3 ,3)  ,RMK(3)  ,IGNDP(3) 

COMPLEX  Cl ,C,CPP,CMM,CII(3) ,CPPI,CMMI, 

&  CA (3 , 3) ,CAJ (3) , CAI (3 , 3)  ,CAJI(3) 

COMMON/GPLANE/NGNDP , IGNDP 
CALL  BSWTCH(RK,I1 .12,13) 

CALL  FACPARC JSF ,RX ,RMK) 

CALL  PD3FAC(JSF,RK,RMK,CI ,CAI ,CAJI ,IPAT) 
CALL  BSWTCHCRK.il. 12. 13) 

CALL  FACPARC JSF, RK ,RMK) 

SGN  =  IGND?  Cl 1 ) 

IFCI2 . GT . 0)THEN 
SGN=SGN* IGNDP (12) 

IF  ( 1 3  .  GT  .  0)  SGN=SGN *  I GN'DP  (13) 

ENDIF 

C=C+SGN *CI 
DC  1C  1=1,3 
o:  i:  j=i  ,3 

CA; I  ,  J  =CA(T , J  >+SGN*CAI (I . J' 

IF; JSF  NE . 0)THEN 
DC  20  J  =  1 ,3 

CA J ; J)  =  CAJ ( J) +SGN  *CA JI  .  J ' 

ENDIF 

RETURN 

END 


A. 06  BSWTCH 

SUBROUTINE  BSWTCHCRK , 1 1 , 12 , 13) 

C - - - 

C  INPUT: 

C  RK(J , I)  1=1, 2, 3  ARE  K*  THE  X,Y,Z  COORDINATES  OF  THE  JTH  VERTEX 
OF  THE  SOURCE  TRIANGLE  WHERE  K=THE  WAVE  NUMBER. 

1 1  >0  AND  EITHER  Il>12>13  OR  I1>I2=I3=0. 

C  11,12,13  ARE  TAKEN  FROM  THE  SET:  (0,1, 2, 3) 

c 

C  OUTPUT: 

C  FOR  EACH  VERTEX  J=l,2,3  RK(J,I)  IS  SET  TO  -RK(J,I)  FOR  I  RUNNING 
C  OVER  THE  POSITIVE  INTEGERS  IN  THE  SET  (11,12,13). 

r _ _ _ _ _ _ _ _ 


DIMENSION  RK(3 ,3) 
DO  10  J=  1 , 3 


r 


4 


rk(j.::)=-rk(j,ii) 

10  CONTINUE 

IF ( 12 . GT . 0) THEN 
DO  20  J=1 ,3 

RK(J ,I2)=-RK(J,I2) 

20  CONTINUE 

IF (13 . GT . 0)THEN 
DC  30  J  =  1 ,3 

RK(J,I3)=-RK(J,I3) 
30  CONTINUE 

ENDIF 
ENDIF 
RETURN 
END 


t  A. 67  FACQAD 


SUBROUTINE  FACQAD ( JSF , I  QUAD , XSING . RK , RMK . RIM  INK . Cl , CIXSI , CIETA  , 
*  CPF  ,  CRM  ,  I  PAT'1 


C  GAUSSIAN  QUADRATURE  INTEGRAL  OVER  FACE 
C  INPUT: 

C  I  QUAD  EQUALS  1,3, OR  7  THE  NUMBER  OF  INTEGRATION  POINT?. 

C  XSING  =  C . (NO  SINGULARITY  EXTRACTION)  X S I  N 1= 1 , (SINGULARITY  EXTRA  T I  ON 
C  RK ( J , I )  1  =  1, 2, 3  DENOTES  K»  THE  X,Y,Z  COORDINATES  OF  THE  JTH  VERTEX 
C  OF  THE  SOURCE  TRIANGLE. 

C  RMK(I)  1  =  1, 2,3  DENOTE  K*  THE  X,Y,Z  COORDINATE  OF  THE  MATCH  POINT. 

C  RLMINK=K*  THE  LENGTH  OF  THE  SHORTEST  SIDE  OF  THE  SOURCE  TRIANGLE. 

C  OUTPUT: 

C  THE  NORMALIZED  AREA  COORDINATES  (XSI.ETA)  AND  THE  NORMALIZED 
C  SOURCE  TRIANGLE  ARE  DEFINED  IN  TRISC. 

C  DK=THE  MAGNITUDE  OF  THE  3  DIMENSIONAL  VECTOR. 

C  V(I)  =  (1-XSI-ETA)*RK(1  , 1)  +  XSI*RK(2 , 1 ) +ETA*RK(3 , 1 ) -RMK( I )  1  =  1 ,2,3. 

C  Cl, CIXSI, AND  CIETA  ARE  THE  INTEGRALS  OVER  THE  NORMALIZED  SOURCE 
C  TRIANGLE  C  OF  1., XSI.ETA  (RESPECTIVELY)  TIMES 
C  CEXP(-I*DK)/DK  D(XS1)  D(ETA)  WHERE  I=SQRT(-1.). 

C  GAUSSIAN  WEIGHTS  FOR  THE  SOURCE  TRIANGLE  FOR  IQUAD=3,7  ARE  IN  STRANG 
C  AND  FIX,  ’AN  ANALYSIS  OF  THE  FINITE  ELEMENT  METHOD’,  P.184; 

C  HOWEVER,  THEIR  FIRST  WEIGHT  IS  WRONG. (7PT)  OURS  HAS  BEEN  CORRECTED 
C  SO  THE  INTEGRATION  OVER  A  CONSTANT  AND  1ST  ORDER  POLY  IN  ETA  CR 
C  XSI  IS  EXACT. 

C - 


ITS 


►h  a 


MPLICIT  COMPLEX  (C) 

IMENSION  RK(3 ,3) ,RMK(3) ,XSI3(3;  ,XSI7(7) ,ETA3(3) ,ETA7(7) 

$  . WGHT7 (7) ,CFP(3) ,CFM(3) ,CSPi(3) , CSM 1 (3) , CFP1 (3) ,CFM1(3) 

DATA  XSIl ,ETA1 .WGHTl/ .333333333333333, .333333333333333, .8/ 
DATA  XSI3/ . 666666666666667 , . 166666666666667 , . 166666666666667/ 
DATA  ETA3/ . 16666666666667 , . 666666666666667 , . 166666666666667/ 
DATA  WGHT3/ . 166666666666667/ 

DATA  XSI7/ .333333333333333, .797426985353087 , . 101286507323456, 

1  101286507323456, .470142064105115, .470142064105115. 

2  .05  9"’ 1587178  9770/ 

DATA  ETA7/ .333333333333333,  1 C 1  28C507323456  ,  ',9"T4269353S30S7  , 

1  .  101286507323456,  .470142064105115,  053715871739770. 

2  470142064105115/ 

DATA  WGHT7 / . 1125, .0629695902-2413,  .C629C?330_  '2413 , 

1  .062969590272413, .066197076394253, . 0~C 19~C 70 294253 , 

2  .066197076394253/ 

RLIMIT=1 ,E-5«RLMINK 
IFCICVAD.E3  ■  DTHEN 

CALL  INTGRNC J3F ,RK ,RMK , RLIMIT ,XSINO , XSI 1 , ET A 1 , 
i  WGHTl . Cl .01X2 1 . C I  ETA , CFF , CFM , 02 7 1 . ’CM! , I;  AT, 

ELSE 

:f:jsf.ke.o)then 
DC  5  >1,3 
CFPUJ)  =  (0.  ,0.) 

:rMiOi.o.  ,0.) 

CF?(J)=(0. ,0. ) 

8  CFM  ( J ) = (0 . , 0 . ) 

ENDIF 

CI=(0. ,0. ) 

CIXSI=(0. ,0.) 

CIETA=(0 . ,0. ) 

IFCIQUAD .Eq .3) THEN 
DO  10  1=1,3 

CALL  INTGRN(JSF,RK,RMK,RLIMIT,XSING,XSI3(I) ,ETA3(I) , 

&  WGHT3 , CC , CCXSI , CCETA  , CFP 1 , CFM 1 , CSP1 , CSM1 , IPAT) 

IF(JSF.NE.O)THEN 
DO  15  >1,3 
CFP(J)=CFP(J)+CFP1(J) 

15  CFM(J) =CFM( J) +CFM1 ( J) 

ENDIF 

CI=CI+CC 

CIXGI=CIXSI+ CCXSI 
CIETA=CIETA+CCETA 
iO  CONTINUE 

ELSE 
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DO  20  1=1,7 

CALL  INTGRN(JSF, RK, RMK, RLIMIT, XSING, XSI7(I) ,ETA7(I) , 
ft  WGHT7 ( I ) , CC , CCXSI , CCETA  ,  CFP 1 , CFM 1 , CSP 1 , CSM 1 , IPAT) 

IF(JSF.NE. 0)THEN 
DO  25  J=1 ,3 
CFP(J)=CFP(J)+CFP1(J) 

25  CFM(J)=CFM(J)+CFM1(J) 

ENDIF 

CI=CI+CC 

CIXSI=CIXSI+CCXSI 
CIETA=CIETA+CCETA 
20  CONTINUE 

ENDIF 
ENDIF 

IF ( JSF . NE . 0)THEN 
CP?=CFP(JSF)+CSP1(JSF) 

CMM=CFM(JSF)+CSM1 (JSF) 

ENDIF 

RETURN 

END 


A. 68  INTGRN 

SUBROUTINE  INTGRN (JSF , RK , RMK , RLIMIT , XS I NG , XSI , ETA , WGKT , CC , 
ft  CCXSI ,CCETA  , CFP, CFM, CSP 1 , CSM 1 , IPAT) 

C-- - - - - - — - - 

C  INTEGRAND  OF  POTENTIAL  INTEGRAL 
C  INPUT: 

C  RK(J,I)  1=1, 2, 3  DENOTES  K*  THE  X,Y,Z  COORDINATES  OF  THE  JTH  VERTEX 
C  OF  THE  SOURCE  TRIANGLE. 

C  RMK ( I )  1  =  1, 2, 3  DENOTES  K*  THE  X, Y,Z  COORDINATES  OF  THE  MATCH  POINT. 

C  RlIMIT=A  SMALL  CONSTANT  *  K*  THE  LENGTH  OF  THE  SOURCE  TRIANGLE’S 
C  SHORTEST  SIDE. 

C  XSING=0.  NO  SINGULARITY  EXTRACTION. 

C  XSING= 1 .  SINGULARITY  EXTRACTION. 

C  XSING  MUST  BE  1.  IF  MATCH*  POINT  IS  ON  THE  SOURCE  TRIANGLE. 

C  XSI, ETA  ARE  NORMALIZED  AREA  COORDINATES  OF  THE  SOURCE  TRIANGLE. 

C  WGHT  IS  A  WEIGHT  FACTOR. 

C  OUTPUT: 

C  CC, CCXSI ,CCETA=  WGHT* (CEXP (-I*DK) -XSING) /DK  *(  1  , XSI , ETA , RESPECTIVELY) 
C  WHERE  I=SQRT(-1 . ) . 

C  DK=THE  MAGNITUDE  OF  THE  VECTOR. 
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;  VX=(i-XSI-ETA)*RK(l,l)+XSI*RK(2,l)+ETA*RK(3, U'RMK(l) 
C  VY= ( 1-XSI-ETA) *RK (1 ,2) +XSI*RK (2 , 2) +ETA*RK (3 , 2) -RMK(2) 
:  VZ=  v 1-XSI-ETA)*RK( 1 ,3) +XSI*RK(2 ,3) +ETA*RK(3 ,3) -RMK (3) 


C 


2 


3 


>9 


C 


IMPLICIT  COMPLEX  (C) 

DIMENSION  RK(3.3) ,RMK(3) ,V(3) ,CFP(3) ,CFM(3) ,CSP1(3) ,CSM1(3) 
SIZECX ,Y,Z)=SQRT(X*X+Y*Y+Z*Z) 

ZETA= 1 . -XSI-ETA 
IF (IPAT . GT . 0)THEN 
DO  2  >1,3 

V (  J ;  =  -  i  ZF.TA *RK(1  ,J)  +  XSI* RK  ( 2  ,  J )  ■* ET A •  ?.V  2  , ;  > 
j K = V : 1 ) *RMK  U ) + V ( 2 ) * RMK ( 2 ) + V C 3 ) *  RMK ( 3 ; 

ELSE 

DC  3  J  =  i ,3 

V(J)=RMK(J)-(ZETA«RK(1,J)*XSI»RK  (2  ,J  .  •* ETA «  -  H  .  3  ,  J ' 

DK=S I ZE ( V ( 1 ) , V ( 2 ) , V ( 3 ) ) 

END  IF 

C=CM?LX  10 . ,-DK) 

cdk=:exp(c) 

IF ( IF AT . GT . C ; THEN 
•'E  =  WGHT*CDK 

else: f  ; r k  .  c.t  rlim.it:. then 

CE=WG:-'~*  (CDK-XSINO/CK 
ELSEIF  XSING.EQ. 1 . ) THEN 
CE=  "0  .  ,  -  1  .  1  *WG:!T 
ELSE 

WRITE. 4 ,99) 

FORMAT (IX,  ’WARNING  IN  QUAD  SINGULARITY  WITH  NO  EXTRACT-: If. 
STOP 
END  IF 


C  IF  THERE  ARE  ANY  JUNCTIONS,  CALL  IN7JUN  TO  COMFUTE  INTEGRATION  DUE 
C  JUNCTION  BASIS  FUNCTION 


IFCJSF.NE.O. )THEN 
IF( IPAT ,EQ . 0)THEN 

C 

CALL  INT JUN ( JSF , RK , RMK , V , DK , CDX , XSING , XSI ,ETA , WGHT , 
&  CFP,CFM,CSP1 ,CSM1 ,IPAT) 

ELSE 

C  COMFUTE  VECTOR  POTENTIAL  FOR  FAR  FIELD 

CALL  JKFPAT( JSF ,RK ,RMK ,CDK , XSING, XSI ,ETA ,WGHT, 

4  CFP.CFM.CSPl ,CSM1) 

C 

ENDIF 
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O  O  O  O  O  O  O  Cl  O  Cl 


ENDIF 

CC=CE 

CCXSI=CE*XSI 

CCETA=CE*ETA 

RETURN 

END 


A. 69  PS3FAC 

SUBROUTINE  PS3FACC JSF , R.SINGT.SP2 . SM2) 

c - 

C  POTENTIAL  INTEGRAL  OF  SCALAR  3-D  CREEN'S  FUNCTION  OVER  FACE 
C  INPUT: 

C  EACH  VECTOR  SAY  V,V(I)  1  =  1, 2, 3  CORRESPONDS  TO  THE  X.Y.AND  Z 
C  COMPONENTS  OF  V  RESPECTIVELY. 

C  R ( J , I )  J=1 ,2,3  CORRESPONDS  TO  VECTORS  FROM  THE  ORIGIN  TO  THE 
1,2,3  VERTICIES  RESPECTIVELY  OF  THE  SOUR’E  TRIANGLE. 

RM  IS  THE  VECTOR  FROM  THE  ORIGIN  TO  THE  MATCH  POINT. 

RMO  IS  THE  PROJECTION  OF  RM  INTO  THE  PLANE  CF  THE  SOURCE  TRIANGLE 
UN  IS  THE  UNIT  NORMAL  TO  THE  PLANE  OF  THE  SOURCE  TRIANGLE. 

IT  IS  DETERMINED  BY  THE  RIGHT  HAND  FO'LE  APPLIED  TO  VERT!  HE:' 

DPERP  IS  THE  DISTANCE  CF  RM  TO  RMO  . DFERF . Cb . 0 
OUTPUT : 

SING=THE  INTEGRAL  OVER  THE  SOURCE  TRIANGLE  CF 
1  ./ABS(VECTOR(RP-RM'')  D(AREAP)  . 

SINGV(I)  1=1, 2, 3  =  THE  X,Y,Z  COMPONENTS  OF  THE  INTEGRAL  OVER  THE 
C  SOURCE  TRIANGLE  OF  VECTOR (RP- RMO) /A3S ( VECTOR ( RM - R? ) )  D(AREAF) . 

C  RP=THE  SOURCE  VECTOR  LOCATION. 

C  REFERENCE: ’POTENTIAL  INTEGRALS  FOR  UNIFORM  AND  LINEAR  SOURCE 
C  DISTRIBUTIONS  IN  POLYHEDRAL  DOMAINS’ 

C  D.R. WILTON  ET.  AL .  TO  APPEAR  IN  IEEE.  AP  MARCH  1984. 

C  SING=THE  SUM  OVER  THE  SOURCE  TRIANGLE  EDGES  OF: 

C  (PO)HAT  DOT  (UU)HAT  [PO*LN ( (RRP+ALP) / (RRM+ALM) ) 

C  -D*(ATAN(PO*ALP/ (P0**2+D**2+D*RRP) ) -ATAN(P0*ALM/(P0**2+D**2+D* 

C  RRM) ) )] 

C  SINGV(I) (1=1 ,2 , 3) =THE  X.Y.Z  COMPONENTS  OF  THE  SUM  OVER  THE  EDGES 
C  OF  THE  SOURCE  TRIANGLE  OF 

C  . 5* (UU) HAT  *[(D**2+P0**2)*LN( (RRP+ALP ) / (RRM+ALM) ) + ALP+RRP- ALM+RRM] 
C  PO=THE  PERPENDICULAR  DISTANCE  FROM  RMO  TO  THE  EDGE  OF  THE 
C  SOURCE  TRIANGLE. 

C  (PO)HAT  IS  THE  UNIT  VECTOR  THAT  POINTS  FROM  RMO  TOWARDS  THE  EDGE. 

C  (UU)HAT  IS  THE  OUTWARD  POINTING  UNIT  NORMAL  OF  THE  SOURCE  TRIANGLE 


THAT  LIES  IN  THE  PLANE  OF  THE  SOURCE  TRINAGLE. 

d=:ferp. 

AL: =THE  DIRECTED  DISTANCE  BETWEEN  THE  PROJECTION  OF  RM.  ONTO  THE 
EDGE  AND  THE  (PLUS) VERTEX . 

ALM=THE  DIRECTED  DISTANCE  BETWEEN  THE  PROJECTION  CF  RM  ONTO  THE 
EDGE  AND  THE  (MINUS)  VERTEX. 

FOR  AN  EDGE  RUNNING  FROM  VERTEX  IVTX  TO  VERTEX  IVTXl, 

THE  PLUS  VERTEX  IS  IVTXl  AMD  THE  MINUS  VERTEX  IS  IVTX. 

?.?.?  =  STRT  (P*  *2  +  P0*  *2  + ALP*  *2)  . 

F.RM=3yRT (D**2+P0**2+ALM**2)  . 


IMPLICIT  COMPLEX  (C) 


DIMENSION  E  (3,3 )  ,RMO(2>  ,  UN  ,  SI  NGV(2  . 

S  ,H  3)  , SIN GT O'1  , VPC (3,3;  ,VH(3,3)  ,DL(3,3 
I  , ph (3) , rf.2 (2  >  ,?.?.■ 

COMMON/ JUN/RI  , P  ,  PH  ,  RR ,  RR2  , RIL  , UF.I  ,VK 
IOMMON/S2/HPR  ,HMR 
5T-MM  ON/CCN  J/XSING2 

COMMON/.-  ARA/DL  ,  LET  ,  H  ,  AL  .  UL  .  UH  ,  Rv  .  "N  ,  I 

-r-SPr  —  VET  C 


-ML  .3) , KPS  3, 


.  *  .I  J* 


w-  -  N  j  V  ,  ~  =  0  . 

::  ic  1=1,3 

IF1=M3D(1 ,3)*1 
:m:=mod(i+i ,3;+: 

?G=UH  ( I  ,1)*(R(IF  1  ,  1 )  -  EMC  ”  1  ,  +V  :•  I  .  .  •,>.  IP...-  -RMI  2  ' 

S  +UH  (.1 , 3)  *  (?. .  IP  1  ,  3’.'  -F.MG  ,3  • 

DC  4  J=1  ,3 
VPOCI. J)=PO*UH(I, J) 

SGN= 1  . 

IF (PO . LT . 0 . )THEN 
SGN  =  -  1  . 

PO  =  -PO 
ENDIF 

ALP=UL ( I ,1)*(R(IM1,1)-RM0(1))*UL(I,2)*(R(IM1.2)-RMC(2)) 
$  +UL(I ,3)*(R(IM1 ,3) -RM0(3) ) 

ALM=UI. ( I , 1)*(R(IP1  .  l)-RMO(l) )+UL(I ,2)*(R(IP1 ,2)-RMO(2 i ) 
$  +  UL(  I ,3)*(R(IP1 ,3) -RMO(3) ) 

CALL  CAS(PO,DPERP , ALP . ALM , V ALA .VALL) 


SING=SING+SGN*VALA 


c )  c  j  <■  i  r  j  o  n  ij  o  OMO  o  o 
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DC  6  J= 1 , 3 

SINGV(J)=SINGV(J)+UH(I , J)*VALL 
10  CONTINUE 


DO  S  1=1,3 
HPS(I)=0. 

DC  9  .1=1,3 

HPS(I)=HFS(I)  +  (UH(I , J)*(VP0(I ,  I) *SIN3-SINGV; J) ) ) 

S I NGT ( I ) =  HPS ( I ) / DET/ H ( I ) 

THE  INTEGRATION  CF  THE  TAYLOR  SERIES  EXPANSION  OF  THE  INTEGRAND 
OF  THE  JUNCTION  POTENTIAL  INTEGRATION  AT  THE  JUNCTION  VERTEX 
SINGULARITY 

UHS=  UNIT  VET  H  DOT  VET  10 
3INGV( J)=  VET  10  =  INTEGRAL  OF 


IF ( JSF . NE . 0 . AND . XSING2 . NE  .  1  )  THEN 
I  =  J  S  F 

IP1=M0D(1 ,3)-*! 

IM i=M0D (1  +  1 ,3)  + 1 
SXI(IPl) =HPS (I?l ) /H  C IP 1 ) 

SXICIKl) =HPS(IM1 )/H(IHl) 

HLF=0 . 

HLM=0 . 

DO  24  J=1 ,3 

HLP=HLP+UH(I , J ) *DL ( IP  1 , J) 

HLM=HLM+UH(I ,J)*DL(IM1,J) 

24  CONTINUE 

SX=2 . /RR(I) * (RR(I) *SING-HLM*SXI (IP1 ) +HLF*SXI ( IMl ) 
RC0N= 1 . /RR2 ( I ) /DET 
SP2CI)=RC0N*(SXI(IP1)-HPR*SX) 
SM2(I)=RC0N*(SXI(IM1)-HMR*SX) 

ELSE 

DO  30  11=1,3 
SP2(II)=0 . 

30  SM2(II)=0. 

ENDIF 

RETURN 

END 


IS  4 


A. 70 


CAS 


SUBROUTINE  CAS (PO , DPERP , ALP , ALM , VALA , VALL) 


C  .  .  .CONSTANTS  --  RRO  IS  DIST.  TC  LINE?  REP  AND  RRM ,  TO  VERTICES  .  . 

C  INPUT: 

C  PO=THE  PERPENDICULAR  DISTANCE  FROM,  RKO  TC  THE  EDGE  OF  THE  SOURCE 

C  TRIANGLE  UNDER  CONSIDERATION.  DPERT  IS  THE  PERPENDICULAR  DISTANCE  OF 

C  RRM  TO  RMO  AS  DEFINED  IN  ISTNG  ALP  IS  THE  DIRECTED  DISTANCE  FROM 

C  THE  PROJECTION  OF  RRM  ONTO  THE  EDGE  OF  THE  SOURCE  TRIANGLE. 

C  VALA=  [PO*LN (RRP  +  ALP) / (RRM  +  ALM) ) 

C  - DPERP* ( ATAN ( PO* ALP/ (PO* * 2+DFERP*  *..*  DPERP* RE?' 

C  -  AT  AN  ( PC  *  ALM/  CFO*  *  2+ DPERP  *  *  2  *  DP  ERF  *  R  RM  )),•] 

C  CV ALL=  .  S*  [  ‘.  D?ER.P*»2+P0**2)  *LN  v. :  ERF  +  ALP'  /  .  RRM+ALr  ■  +  AI.P*RKP-ALM*RRM": 

C  THE  NOTATION  IN  THIS  ROUTINE  IS  THE  SAME  AS  IN  CALLING  ROUTINE  ISING 


R  R : 1 S  o  =  D  P  E  R  P  *  D  F  E  R  ?  +  P  0  *  P  C 
hr.  =S3RTCRROS0) 

R R ?  =  5 G R T  ; R R C S 0+ ALP* A L F 
RRM  = :  0 RT ( RROSQ+ALM * ALM . 


:f;rat:c  . gt  :p.-4  then 
ferf: =afs(df erf  • 

ALGTR“=ALOC(  (RRP+ALF  /  ■,  RRM+ALM 
ARGTN?=PO*  ALP/  (RR C D 0 * F E R F D *  ?. R P 
A.  R  G  T  N  M  =  P  0  *  A  L  M  /  ( R  R  C  3  G  +  F  E  R  P  D  *  R  R  M ' 

VALA=PC*  ALGTRM-PERPD*  i.  ATAN  ( ARGLNF  -ATAN  ,  ARTINM. 
VALL* . 5 *  v RROSQ * ALGTRK* ALP* RRP - ALM*  RRM 
ELSE 
VALA=0 . 

VALL= .5* (ALP*RRP- ALM*RRM) 

ENDIF 

RETURN 

END 


A. 71  JKFPAT 

SUBROUTINE  JKFPAT ( JSF ,RK , RMK ,CDK , XSING , XSI , ETA , WGHT , 
8t  CFP,CFM,CSP,CSM) 
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*  COMPUTE  QUANTITIES  FOR  CALCULATION  OF  THE  VECTOR  POTENTIAL 
C  ASSOCIATE  WITH  JUNCTION  BASIS  FUNCTION  EY  USING  FAR  FIELD  KERNEL 
C  RK(I , J)  J= 1 ,2,3  DENOTES  K*  THE  X,Y,2  COORDINATES  OF  THE  ITH  VERTEX 
C  THE  SOURCE  TRIANGLE.  (K=THE  WAVE  NUMBER) 

C  RMK(I)  1=1, 2, 3  DENOTES  THE  X,Y,Z  COORDINATES  OF  THE  MATCH  POINT. 

C  H ( I )  IS  THE  LENGTH  01  THE  HEIGHT  VECTOR. 

C  DL(I.J)  IS  THE  VECTOR  FROM  THE  I+1TH  VERTEX  TO  THE  ITH  VERTEX. 

C - 

IMPLICIT  COMPLEX  (C) 

DIMENSION  RK(3 ,3)  ,RMK(3)  ,  X I  ( 3  '•  , P.1'3, 3)  ,H(3)  , 

&DL( 3 ,3) , CFP(3) ,CFM(3) ,CSP(3) , CSM (3) 

COMMON/ JUN/RI 
COMMON /FARA/DL , DET ,H 
CRX(X)=CMPLX(X ,0.  ' 

CIX (X) =CMFLX (0 . ,X) 

SIZE(X , Y , Z)=SQRT(X*X+Y* Y+Z*Z: 

ZETA= 1 . -XSI-ETA 
XI ( 1 ) =ZETA 
XI (2) =XSI 
XI (3) =ETA 
DC  20  1=1,3 

cfp;i:-  =  (o.  ,o.) 

20  cfm =  ',c .  ,o . ) 

I  =  JSF 

C  DO  10  1=1,3 

IP  1 =MOD ( 1 , 3)  + 1 
IM1=M0D(I+1 ,3)+l 
C  HS2=(H(I)*(1-XI(I) )**2 
C 

RRI=0 . 

DO  30  J=1 ,3 

30  RRI=RRI+RMK ( J) *RI (I , J) 

HS=H(I)*(1  .-XI(D) 

HS2=HS*HS 

C 

CF=1 . /HS2* (CDK-CRR) 

CFP(I)=XI ( IP 1 ) *CF*WGHT 
CFM(I)=XI(IM1) *CF*WGHT 
C 

C  CDK=EXP(-JR) 

C 

C  THE  INTEGRATION  OF  THE  TAYLOR  SERIES  EXPANSION  OF  THE  INTEGRAND 
C  AT  THE  JUNCTION  VERTEX  SINGULARITY 
r 

CSP(I)=1 ,/H(I)/H(I)*CRR*0.5 


1SG 


CSM (I) =CSP (I ) 
10  CONTINUE 
RETURN 


A. 72  INTJUN 


SUBROUTINE  INTJUN  ( JSF  ,  P.K  ,  RMK  ,  V  .  DK  .  JDK  ,  XSING  ,  X3I  ,ETA  ,  WGHT , 
&  CFP  ,  CFK  ,  CS?  1  ,  C3M1  , IF  ATI 


*  COMPUTE  QUANTITIES  FOR  CALCULATION  OF  THE  VETO  OR  AND  SCALAR  POTENTIALS 
C  ASSOCIATE  WITH  JUNCTION  BASIS  FUNCTION 

;  J  =  1 ,2 ,?  DENOTES  K«  THE  X..Y.2  'NOR:  I  NATES  OF  THE  ITH  VERTEX  OF 

C  THE  SOURCE  TRIANGLE  ,K=TKE  WAVE  NUMBER > 

C  RMK (I)  1=1, 2, 3  DENOTES  THE  X.Y.Z  COORDINATES  CF  THE  MATCH  POINT. 

C  VN  f I '  1  =  1.2. 3  DENOTES  THE  X.Y.Z  COORI  I  NATES  OF  THE  UNIT  NORMAL  VECTOR 
I  TO  ."HE  PLANE  OF  THE  SOURCE  TRIANGLE. 

C  UL  I. I'  I?  THE  UNIT  VECTOR  FROM  THF  ' -  "  H  VERTEX  T  '  THE  ITH  "MRTEX 
C  TH  =  UL  X  UN 

C  HT  la  CHE  LENGTH  OF  THE  HEIGHT  VECTOR. 

C  DL  1,0  IS  CHE  VECTOR  FROM  THE  I  +  lTH  VERTEX  TO  THE  ITH  VERTEX. 

C  AU  I'  IS  THE  LENGTH  OF  THE  CL.I.J; 

C  RMKD=  THE  PROJECTION  OF  RMK  ONTO  THE  PLANE  CF  THE  SOURCE  TRIANGLE 
C  DrERFK*  K *  THE  PERPENDICULAR  DISTANCE  FROM  THE  MAT  POINT  TC  THE 
T  PLANE  OF  THE  TRIANGLES 


IMPLICIT  COMPLEX  (C) 

DIMENSION  RK(3 ,3)  ,RMK(3)  ,V(3)  ,XI(3)  ,UV(3)  ,RI(3,3'<  ,URI(3.3;  . 

&  A  L  ( 3 ) ,UL(3,3) ,UH(3,3) ,H(3) . P ( 3 , 3 ) , VH ( 3 , 3 ) ,CT(3)  . CS ( 3 ;  , 

ftDL (3 ,3)  .RMK0C3)  , PH  (3)  .  RR( 3)  , RR2 (3)  . CFF  (3)  . CF.MC?)  ,RILf.3)  ,  VRI3)  . 

fcCSPl (3) , CSM 1(3) 

COMMON/CON J/XSING2 
C0MM0N/S2/HPR , HMR 

COMMON/ JUN/RI , P , PH , RR , RR2 . RIL , URI , VH 
COMMON / PARA / DL , DET , H , AL , UL ,UH , RMKO 
CRX (X) =CMPLX (X , 0 . ) 

CIX (X) =CMPLX(0  .  ,X) 

SIZE(X,Y,Z)=SQRT(X*X+Y*Y+Z*Z) 

ZETA=1 . -XSI-ETA 
XI ( 1 ) =ZETA 
XI (2) =XSI 
XI (3) =ETA 
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20 


DO  20  1=1,3 
CFP( I )= (0 . ,0. ) 

CFMCIXO.  ,0.  ) 

1  =  JSF 
C  DO  10  1=1 ,3 

IP 1=H0D ( I , 3) +1 
IM 1  =  MCD ( I  +  1 , 3)  + 1 

C  RICI.J)  ARE  THE  VECTOR  FROM  THE  MAT  OH  POINT  TO  THE  ITH  VERTEX 
C  OF  THE  SOURCE  TRIANGLE. 

C  RIL  IS  THE  LENGTH  OF  RI 
C  'Jr.  I  ( 1  ,  J)  ARE  THE  UNIT  VECTOR  OF  ai.I.J) 

C  RIH=  UNIT  VECTOR  OF  RI  DOT  UNIT  VECTOR  OF  HEIGHT 
C  RR ( I ) =  RI* (UNIT  VET  RI  DOT  UNIT  VET  Hv 
C 

C  DRP=  VET  L(I+1)  DOT  UNIT  VET  RI 
C  DRM=  VET  LvI-l)  DOT  UNIT  VET  RI 
C  HS2= (H(I ) *Cl-XI(I))**2 
C 

DRP  =  0 
DRM=0 . 

DC  30  J=1  ,3 

DRP  =  DRP  +  DL  ( IP  1  *URUI  ,J) 

30  DRM=DRM*DL( IM 1  ,  J *VRI  (I  ,  J) 

HS  =  H { I ) * ( 1  -XI ( I ' : 

HS2=HS*HS 

0  CRK  =  EXPC-JF.I  i/RI 
0  CR2= ; 1  +  JRI ) /RI 

CRK=CEXP(CIX (-RIL(I) ) ) /RILCI ) 

CR2=(CRX(1  .  )+CIX(RIL(I)))/RILO 
WH=WGHT 

C 

C  CDK=EXP(- JR) 

C  CF  IS  THE  FIRST  TERM  OF  THE  NUMERICAL  INTEGRAL  OF  THE  POTENT I A 
C  INTEGRAL  EQUATION 

C 

RATIO=DK/AL(I) 

C  IF  R=0  TAKE  THE  LIMIT  VALUE  OF  THE  INTEGRAL  FUNCTION 
C  TO  AVOID  OVERFLOW 
C 

XDK=0 . 

IFCDK.LT. 1 .E-7)  THEN 


1SS 


o  o 


irk*  ccrx  i  +cf.: 


*  ha: 

THE 


WHOLE 


INTE 


uiV/iL.  n  i 


. )  *  r:  . . 


ARE  THE  NUMERICAL  I  NTH  ’RATI  ~N 
-  ‘<  «HI  IH  Tr.L  S I N'  GULAK. ITY  AT  VERTEX  HAT  E 

TFT  . :  •  =XI ;  :m*CF*WH 
CFM ( I ' =XI ( IM1 ) *CF«WH 
ELSE 


■:  v  :s  the  vector  from  the  match  point  to  the  source  point 

C  Or.  IS  THE  LENGTH  OF  V 

C  P.I.J'  IS  THE  PROJECTION  OF  VECTOR  RI  IN  THE  SOURCE  TRIA 

;  f h ■; i )  =  vet  p:  dot  unit  vector  of  height 

C  R I H  =  UNIT  VECTOR  OF  RI  DOT  UNIT  VECTOR  OF  HEIGHT 
C  HH=  UNIT  VECTOR  OF  HEIGHT  DOT  UNIT  VECTOR  OF  R 


HLP=0 . 


HLM=0 . 

HPR=0 . 

HMR=0 . 

GPM=0 . 

DO  70  J= 1 , 3 
GPM=GPM+UH (I ,J)*V(J) 

hpr=hpr+uh(:pi, j)*ri(i , j) 

70  HMR=HMR+UH (IM1 , J ) *RI ( I  ,  J) 

HPR=HPR/H(IP1) 

HMR=HMR/H(IM1) 

r 

C  RRC)=  RI*  (UN' IT  VET  RI  DOT  UNIT  VET  HI 
C 

GPM=2. /RR(I)*GPM 

YP=H?R»CFM 

YM=HMR*GPM 

GP=(XI (IP1 ) -YP) /RR2 ( I ) / DK 
GM=(XI(IM1)-YM)/RR2(I)/DK 
C 1  =  XI ( IP  1 ) *CF 
C2=XI(IM1)*CF 

C  CFF.CFM  ARE  THE  NUMERICAL  INTEGRATIONS 
C  IN  WHICH  THE  SINGULARITIES  AT  JUNCTION  VERTEX  ANT  E=„ 
C  HAVE  EE  SUBTRACTED  CUT 
C 

CFP ( I ) = (Cl -CRX (GP) ) *WH 
CFM(I)=(C2-CRX(GM))*WH 
ENDIF 

10  CONTINUE 
RETURN 
END 
END 


A. 73  POTWIR 

SUBROUTINE  POTWIR(SSPOT , VAP , VAM , IPAT) 

C - 

C  POTENTIAL  INTEGRAL  OVER  WIRE  SEGMENT 
C  INPUT: 

C  RSK(J)  ARE  K*  THE  X,Y,Z  COORDINATES  OF  THE  CENTER  POINT 
C  OF  THE  SOURCE  SEGMENT  WHERE  K=THE  WAVE  NUMBER. 

C  RMK(I)  1  =  1, 2, 3  DENOTE  THE  X,Y,Z  COORDINATES  OF  THE  MATCH  POINT. 
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CONSTANTS  PASSED  THROUGH  COMMON/ GPL ANE/ 

NGNDP=0, 1 ,2, OR  3  THE  NUMBER  OP  WIMAGE  PLANES . 

:gndp(i)=o  no  ground  planes, 

-1  A  P.E.C.  GROUND  PLANE; 

1  A  P.M.C.  GROUND  PLANE. 

1=1,2.;-  DENOTES  THE  X=0  ,  Y=C  ,  ANDZ=0  GROCCi:  PLANES. 

OUTPUT : 

SSPOT :  SCALAR  POTENTIAL 
VAP.VAM:  VECTOR  POTENTIALS 


COMPLEX  C  spw.vap;;.'  ,  VAM  ,  SSPOT 

INTEGER  IGNDPi.3) 

COMMON /GPL ANE/NGNDP, I GNDP 
CALL  PPWSEGCSSFOT, VAP.VAM, IFAT; 

IF (NGKDP . GT . C) THEN 


DO  20  1=1,3 


r  .?s 


CALL  WIMAGE (SSPOT. VAP  ,  VAM  ,2 , 1  , 0 , I  CAT 
IF (I GNDP (3  . NE . CO  THEN 

CALL  WIMAGE (SSPOT , VAP , VAM . ? ,2,0. I PAT; 

CALL  WIMAGE (SSPOT, VAP , VAM ,o , : .O.IFAT) 

ENDIF 

ENDIF 

IF(NGNDP . GE . 3) CALL  WIMAuE(SSPOT , VAP , VAM ,3,2, 1 , IPAT) 
ENDIF 
ENDIF 
RETURN 
END 


A. 74  WIMAGE 


SUBROUTINE  WIMAGE (SSPOT , VAP  ,  VAM  ,  1 1  , 12 , 13 , IPAT) 

C - 

C  INPUT: 


<„>  o 


C  RSK(J)  ARE  K*  THE  X, Y.Z  COORDINATES  OF  THE  CENTER  POINT 
C  OF  THE  SOURCE  SEGMENT  WHERE  K=THE  WAVE  NUMBER. 

C  RMK(I)  1=1, 2, 3  DENOTE  K*  THE  X, Y.Z  COORDINATES  OF  THE  MATCH  POINT. 

C  IJ  J=l,2,3  DENOTES  :  0  IMAGE  PLANES  IF  IJ=0 
C  THE  X=0  GROUND  PLANE  IF  IJ=1 

C  THE  Y=0  GROUND  PLANE  IF  IJ=2 

C  THE  Z=0  GROUND  PLANE  IF  10=3 

C  1 1  >0 

C  EITHER  1 1 >!2>T3  OR  I1>I2=0=I3 

C 

C  OUTPUT : 

C  THE  SOURCE  SEGMENT  IS  IMAGED  ABOUT: 

C  (CASE  1 1 >0  12=13=0)  THE  II  IMAGE  PLANr 

C  (CASE  Il>12>13=0)  THE  II  IMAGE  PLANE,  THEN  REFLECTED 

C  ABOUT  THE  12  IMAGE  PLANE. 

(CASE  I 1>I2>I3)  THE  11  IMAGE  PLANE,  THEN  REFLECTED 
ABOUT  THE  12  AND  13  IMAGE  PLANES. 

C  THIS  NEW  IMAGE  SEGMENT’S  CONTRIBUTIONS  TO  POTENTIALS  ARE 

C  COMPUTED  AND  THE  RESULTS  ARE  ADDED  TO  THEM 

C - - - 

COMPLEX  CSPW,VAP(3) ,VAM(3) .SSPOT  ,  VAPI (3) ,VAMI(2'  .SSFCTI 
INTEGER  IGNDP(3) 

CCMMCN/GPLANE/NGNDP , IGNDP 
CALL  WSWTCHCl  ,12,13) 

CALL  PDWSEG (SSPOTI ,VAPI ,VAMI , IP AT) 

CALL  WSWTCHCl 1 ,12,13) 

SGN=IGNDP(I1) 

IF (12 . GT . C'THEN 
SGN=SGN* IGNDP (12) 

IF  (13 . GT . 0) SGN=SGN*IGNDP( 13) 

ENDIF 

DO  5  J=1 ,3 

VAF(J)=SGN*VAPI(J)+VAP(J) 

VAM(J)=SGN*VAMI(J)+VAM(J) 

5  CONTINUE 

SSPOT=SGN*SSPOTI+SSPOT 

RETURN 

END 


A. 75  WSWTCH 

SUBROUTINE  WSWTCH (II ,12,13) 
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C  IS !?’.!?: 

C  P.SK'.J)  ARE  K*  THE  X,Y,Z  COORDINATES  OF  IKE  CENTER  POINT 
C  OF  THE  SOURCE  SEGMENT  WHERE  K=THE  WAVE  NUMBER. 

C  SH(j)  ARE  K*  THE  X.Y.Z  COORDINATES  OF  THE  UNIT  VECTOR 
OF  THE  SOURCE  SEGMENT  WHERE  K=THE  WAVE  NUMBER. 

C  1 1 >0  AND  EITHER  Il>12>13  OR  Ii>I2  =  I3=0. 

C  11,12,13  ARE  TAKEN  rnurt  iriE 


C  OUTPUT: 

C  FOR  1=1, 2, 3  RSK(J)  IS  SET  TO  -RSK'J)  FOR  I  RUNN 
:  OVER  THE  POSITIVE  INTEGERS  IN  THE  SET  -11,12,13 


DIMENSION  SH(3) ,RSK(3) ,RMK(3) 
COMMON/WKERNL/RSK  ,SH  ,  RMK  ,  F.ADSK  ,  RADSKS 
RSK / 1 1 )  =  - RSK ( J  1 ) 

SHC1)  =  -SH(I1) 

IF  ;  12  .  GT . 0)THEN 

RSK ( 12) = -RSK ( 12) 

SH(I2)=-SH(I2) 

IF (13 . GT . 0)THEN 

RSK(I3)=-RSK(I3) 

SH(I3)=-SH(I3) 

END  IF 

r  >;  s '  F 

RETURN 

END 


A. 76  PDWSEG 


SUBROUTINE  PDWSEG (SSPOT , VAP , VAM , IPAT) 

C - 

C  POTENTIAL  INTEGRAL  OF  DYNAMIC  WIRE  GREEN’S  FUNCTION  OVER  SEGMENT 
COMPLEX  VAP(3) ,VAM(3) ,SSFOT  ,CSPW  ,  ANS(3) 

>  , CKRED , CKTOT , CKSELF .CANS , CPATT 

DIMENSION  IGNDP(3) , RMK (3) , SH (3) , RSK(3) 

REAL  LAMBDA ,K ,MU, IMP 

COMMON/ MED IUM/DEG2RAD .EPSLON , MU , IMP , SL , PI 
COMMON/POT/NM , NS , DEL , DELS , DELH , DELRH , RVPW , CSPW , RADMKK 
COMMON/WAVE/OMEGA , LAMBDA , K 
COMMON/WKERNL/RSK ,SH , RMK .RADSK .RADSKS 
COMMON /WKER/DPAR , RHO .RHOPR.RHOPRS .RHOMRS 
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*  •» 


CCMMON/WIRE/IQUADW 

COMMGN/WIRSLF/IQWS 

COMMON/ GPL ANE/NGNDP , IGNDP 

EXTERNAL  CKRED , CKTOT , CKSELF , CPATT 

I OUAD=IQUADW 

I  Qt'AWS  =  I  QWS 

DELI=DEL 

RADMKS=RADMKK 


*  COMPUTE  QUANTITIES  FOP.  CALCULATION  CF  THE  VECTOR 


SCALAR  POT 


I F ( I ?  AT . GT . 0 ) THEN 
P.OS=100 . 

IQUAD=4 

CALL  SEGQ  AD  (CPATT,  DELI  ,  I  QUAD  ,  AN'S) 

ELSE 

ROS= (RSK ( : ) -RMK ( 1 ) ) **2+ (RSK (2) -RMK ( 2) >  *  *  2+ ( RSK ( 3 ; - RM  K 

IF ( IPAT . EQ . C . AND . ROS . LE . 3 . 9*DELS ) THEN 


-  SINGULAR  TERM  TREATED  ANALYTICALLY. 

DP  AR=  ( RSK  ( 1 )  -RMK  ( 1 )  )  *  SH  ( 1  ■  +  ,  RSK  ( 2 )  -  RMK  ( L }  '■  *  SH  (  2 )  + 
>  (RSK (3) -RMK (3) ;*SH(3' 

rFEnPS=ROS -DPAR»DPAR 
RHQ=SQK7 (DPERPS+RADMKS; 

RHOFR=RHO+RADSK 
RHOMR=RHO-RADSK 
RHCPRS=RHOPR*RHOPR 
RHOMR5=RHOMR*RHOMR 
IF (NM . EQ . NS)THEN 
DELRHI=DELRH 
DELHI=DELH 

IF (DELH . GT . DELRH)THEN 

CALL  SGQ ADS (CKTOT , DELRHI , DELHI , IQUAWS , CANS) 
ANS ( 1 ) =CANS 
XU=DELRHI 
ELSE 

XU=DELHI 

ANS ( 1 ) = (0 . ,0.) 

ENDIF 

CALL  SGQADS(CKSELF ,0 . , XU , IQUAWS .CANS) 

XUS=XU*XU 

SIN1=XU*AL0G( (XUS+RHOMRS) / (XUS+RHOPRS) ) 

IF(RHOMR . EQ . 0 . )THEN 

SINGT=SIN 1-2 . *RHOPR*ATAN(XU/RHOPR) 
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singt=sini 

>  +2 . * (RHOMR*ATAN (XU/RHUMR) -RKL?R»ATAN  CXU/RHOPR) / 

END  I F 

ANS ( 1 ) =2 . * (ANS ( 1 )+CANS-SlNGT/ (RH0PR*PI ) ) 

C  BY  SYMMETRY 

ANS  1 2; = . 5* ANS ( 1 ) 

ANS  (3) =ANS(2) 

ELSE 

CALL  SEC.QADCCKTCT.DELI .  I  QUAD  .ANS  1 
end:? 

ELSE 

LA  —  —  —  —  w A. 'o  v ■-  r  Kr..  L— _  ,  .  .JL/.  ,  A N  —  j 

END  IF 
END  IF 

*  FILL  WIRE  FIFTHS'  CF  THE  IMPEDANCE  MATRIX 

*  C IMPUTE  VECT1 R  AND  SCALAR  PCTENTI AL  CDNTRID"TIC,"I 

SCDCT-  ISPW-ANSC)/  HELI/K 
AND  :'=RY?W*ANS(2I 
AN?.,:-  =r.YPW*  ANS  (.3) 

Cl  '  EDEMA-  X  ,  ’  AN  ’  ,14. 'El  1.3 

YAP,  J' =AN3(2)*SH( J) 

VAM  ,.’1=ANS(3)*SHCJ) 

1C  CONTINUE 

RETURN 
END 


A. 77  CKTOT 


COMPLEX  FUNCTION  CKTOT(SP) 


*  INPUT: 

*  SP=K*THE  DISTANCE  OF  THE  SOURCE  POINT  FROM  THE  CENTROID  OF  THE  SOURCE 
»  SEGMENT.  SP  IS  POSITIVE  IF  THE  DISTANCE  IS  TOWARDS  THE  SOURCE 

*  SEGMENT’S  ENDPOINT  AND  NEGATIVE  IF  TOWARDS  THE  INITIAL  POINT. 

*  RADSK  =K*THE  SOURCE  SEGMENT  RADIUS. 

*  RADSKS=RADSK* RADSK 

*  DPAR= (RSK ( 1 ) -RMK (1))*SH(1) + (RSK (2) -RMK(2) ) *SH (2) + 
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*  -CR£K(3) -RMK(3)  >*SH  C3) 

»  EH :  =S3RT (DPAR* * 2+RADMKS)  ,  WHERE  RADMKS=(K*  THE  RATH'S  OF 

*  THE  T.ATCH  SEGMENT,  **2 

*  RHO?ES= (RKO+RADSK) **2 

*  RHCMRS= (RKO-RADSK) *»2 

*  OUTPUT : 

*  CKTOT  IS  THE  TOTAL  KERNEL  .  A  REDUCES  KERNEL  APPROXIMATION  IS 

*  USED  FOR  THE  SMOOTH  TERM  CCEXPt.  (0  .  , -R,  -  :  . ) /R)  . 


DIMENSION  RMK ( 3 ) ,SH(3) ,RSK(3' 

COM.~i.tX  CBN  DR 

::mmon  /wkernl/rsk ,sh,rmk,radsk  ,ra::ks 

CDMMON/WKER/DPAR  ,  RHO  ,  RHCFR .  RHGi-  K'  ,  R  HI  MRS 
DATA  PIDTWC  /!  .  E”  :7?eSLF~°TS9''/ 

PP  ~  ®  S?r  1 )  +  *"*  P  ♦  S  H  '•  1 '■ —  p,M  ’*\!  1  *  *  p  pp  •*  ^  ~  *  p,  2  *■  r.MK  * 

^  ■  p  P  p  '  2  )  ^  S  *  "'D  r*  vi  P»  M  '* 

R  =  S  ~  R  T '  S  P  3  ♦  P.  A  P  S  K  $ 


- Spp.=:  f  CEX?  v  CM? LX  C  ,  ■  -  1  1 

~EEM  =  (SP+DPAR) **2 

:  en:m?=term-*  rk.'-prs 
denom=sdrt (DENOMS) 
beta:  =  (term+rhomrs;.  /denoms 

E  L I P ' T = F,  L I C 1 K  ( B  E  T  A  1 )  /  U 1 E  N  0  M  *  P I D  T  W  0 

CKTCT=CBNDR+ELIPT 

RETURN 

END 


A. 78  CKSELF 


COMPLEX  FUNCTION  CKSELF (SP) 

C - - 

*  I N  r  u  i  : 

*  S?=K*THE  DISTANCE  OF  THE  SOURCE  POINT  FROM  THE  CENTROID  OF  THE  SOURCE 

*  SEGMENT.  SP  IS  POSITIVE  IF  THE  DISTANCE  IS  TOWARDS  THE  SOURCE 

*  SEGMENT’S  ENDPOINT  AND  NEGATIVE  IF  TOWARDS  THE  INITIAL  POINT. 

*  RADSK  =K*THE  SOURCE  SEGMENT  RADIUS. 

*  RADSKS=RADSK* RADSK 
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*  HH0=SCRT(DPAR»*2+RADMKS) .WHERE  RADMKS=(K*  THE  RADIUS  OF 

«  THE  MATCH  SEGMENT) **2 

*  RHQFRS*  (RHO  +  R.ADSK)  **2 

*  RHOMRS= (RHO-RADSK) **2 

*  OUTPUT: 

*  CKSELF  IS  THE  TOTAL  KERNEL  MINUS  THE  SINGULAR  PART  OF  THE  ELLIPTIC 

*  INTEGRAL  CONTRIBUTION. 

*  A  REDUCED  KERNEL  APPROXIMATION  IS  USED  FOR  THE  SMOOTH 

*  TERM  (CEXP  ( (0  .  ,  - R )  -  1  . )  / P. )  . 


DIMENSION  RMK  (3)  ,SH(3)  ,RSK;2,' 

COMPLEX  CBNDR 

COMMON  /WKERNL/RSK , SH , RMK , RADSK  . RADSKS 
COMMON/ WKER/DPAR , RHO , RHOPR , RHOFRS , RH0MR3 
DATA  PIDTWO  / 1 . 57C79632CU489/ 


SPS=SP*SP 

R=SQRTCSPS+RADSKS) 

*  CBNDR  IS  THAT  PORTION  OF  THE  KERNEL  TO  WHICH  THE  REDUCED  KERNEL 

*  APPROXIMATION  IS  APPLIED. 

CBNDR* (CEXP (CKFLXCC. ,  -  R  V  - 1 . )  / R 
TERM=SPS 

DENOM?=TERM*RHCPRS 
DENOM=SQRT (DENOMS) 

3ETA1*  (TERM+RHCM.RS)  /DENCM5 

ELIPT*(ELIC1K(EETA1)  /DF.NOM  +  .  5*AL0G  -ETA  1) /R>rPR‘- /FID  TWC 

CKSELF=CBNDR+ELIPT 

RETURN 

END 


A. 79  CKRED 

COMPLEX  FUNCTION  CKRED(SP) 


*  INPUT: 

*  RMK(J) , J=1 ,2,3=K*  THE  X.Y.Z  COMPONENTS  OF  THE  MATCH  POINT. 

*  SHU)  J=1 ,2 ,3  =  THE  X,Y,Z  COMPOMENTS  OF  THE  UNIT  VECTOR  POINTING  IN 
»  THE  SAME  DIRECTION  AS  THE  SOURCE  SEGMENT. 

*  RSK(J)=  K*  THE  X , Y , Z  COORDINATES  OF  THE  THE  SOURCE  SEGMENT  CENTROID 

*  RADSK=K  *  THE  SOURCE  SEGMENT  RADIUS. 


■  ?..'.CSK5  =  F.AD$K*  RADSK 

*  S'  IS  K*  THE  DISTANCE  ALONG  THE  SOURCE  SEGMENT  THAT  RPRIME  IS  FROM 

*  THE  SOURCE  SEGMENT  CENTROID.  A  POSITIVE  DISTANCE  IS  TOWARDS  THE 

*  ENDPOINT  CF  THE  SOURCE  SEGMENT,  A  NEGATIVE  DISTANCE  IS  TOWARDS  THE 

*  INITIAL  POINT  OF  THE  SOURCE  SEGMENT. 

■  OUTPUT  : 

*  CKMN=TKE  REDUCED  KERNEL  EVALUATED  AT  R=THE  MATCH  POINT  AND 

*  RFRIMEI J?  =  RSK ( J) -SP*SH(J) . 


DIMENSION  RMK (3)  ,SH(3)  ,RSK(3)  ,D'.3) 
C0MMCN/WKERNL/R3K , SH , RMK , RADSK , RADSKS 

DO  5  >1,3 

DC J) =RMK ( J ) -P.SK C J ) -SP*SH  C C ; 

CONTINUE 

R = S  0  K T  ( D  ( 1 )  *  D  C 1 )  +  D  ( 2 )  *  D  i  2 )  + 1 ■  ( 3  ’>  *  D  ( 3 )  +  R  A  D  S  K  S ) 

CKRED=CEXP(CMPLX(G .  ,  -RI ' /R 

RETURN 

END 


A. 80  FLIC1K 


FUNCTION  ELICiKvAMl) 


*  COMPLETE  FLLIFITIC  INTEGRAL  CF  THE  FIRST  KIND  K ( M ; ,  AS  DEFINED  IN  JOHN 

*  THE  REFERENCE  BELC".’,  WHERE  AM1  =  1-M 

» 

*  REFERENCE:  HANDBOOK  OF  MATHEMATICAL  FUNCTIONS 

*  ABRAMPW3TZ  AND  STEGUN 

* 

«  EQUATION  17.3.34 


DATA  A0,A1 ,A2,A3,A4,B0,B1 ,B2,B3,B4/ 

>1 .38629436112, .09666344259, .03590092383, .03742563713. .01451196212, 
> .500000000000, . 12498593597, .06880248576, .03328355346, .00441787012/ 

IF( AMI  .LT.  l.E-18)THEN 
A=AM1*A1+A0 
B=AM1*B1+B0 

ELSEIFCAM1  .LT.  l.E-12)THEN 
A=AM1*(AM1*A2+A1)+A0 
B=AM1*(AM1*B2+B1)+B0 


198 


ELSEIF (AMI  .LT.  l.E-9)THEN 

A=AM1*(AM1*(AM1*A3+A2)+A1)+A0 

B=AM1*(AM1*(AM1*B3+B2)+B1)+B0 

ELSE 

A=AM1*(AM1*(AM1»(AM1*A4+A3)+A2)+A1)+A0 

B=AM1*(AM1*(AM1*(AM1*B4+B3)+B2)+B1)+B0 

ENDIF 

ELIC1K=A-B*AL0C(AM1) 

RETURN 

END 
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